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NOMENCLATURE 


Index 

Upper  case  English  characters  except  “I”  and  digit  numbers  indicate  surfaces. 

Lower  case  English  characters  indicate  coordinate  systems. 

c  tool  surface  (c  =  G,  p) 

tv  work  surface  (tv  =  1,  2) 

P,  Q  tool  surfaces  or  work  surfaces 

G  gear  tool  surface 

P  pinion  tool  surface 

1  pinion  surface 

2  gear  surface 

/  first  principal 

n  second  principal 

Matrix 

[A]  3  by  4  symmetric  augmented  matrix  which  relates  principal  curvatures  and 
directions  for  mating  surfaces 

[B]  4  by  1  matrix  representing  homogenous  coordinates  of  point  B 

[Lab]  3  by  3  matrix  describing  the  transformation  of  vector  from  +he  Sb  coordinate 

system  to  Sa  coordinate  system 

[Mabj  4  by  4  matrix  describing  the  transformation  of  coordinates  from  the  Sb  coordinate 

system  to  Sa  coordinate  system 

3  by  1  matrix  representing  components  cf  normal  vector  N 


[N] 


M 


Vector 


B 

Bu 

Bv 

^  i ’  ^ u 

r,  j,  k 

N 

n 

Tiu 


Tljt 

j-MCW) 


trV 


UJ 

jJ 


3  by  1  matrix  representing  components  of  unit  normal  vector  n 
3  by  1  matrix  representing  components  of  angular  velocity  vector  u> 


position  vector  of  point  B  on  a  surface 

dB/du 

dB/dv 

unit  vectors  along  the  principal  directions  of  the  surface  at  the  contact  point 

base  vectors  along  axes  X,  Y ,  and  Z,  respectively 

normal  vector  of  point  B  on  a  surface 

unit  normal  vector  of  point  B  on  a  surface 

dn/du 

dn/dv 

slide  velocity  of  surfaces  Ec  and  E w 
transfer  velocity 

velocity  vectors  of  contact  point  in  its  motion  over  the  pinion  and  gear  surfaces, 

respectively 

angular  velocity 

relative  angular  velocity  of  surface  T  with  respect  to  surface  Q 
tangent  vector 


English  Upper  Case 


A  mean  pitch  cone  distance 


VI 


■^0  !  ^1  !  ^2 
A  B 
B 
Cn 

E,  F,G 
Em 
£3 
T 

I 

II 
1 


L 

L,  M,  N 

Lm 

M 

N 

P 


R 

Rct  1  Rct 


v^C) 

VT’ 


w 


K’K: 


coefficient  of  a  quadratic  equation 
auxiliary  parameters 
point  on  a  surface 
class  of  a  function 

auxiliary  parameters  for  first  fundamental  form 

machining  offset 

three-dimensional  space 

zero  function 

first  fundamental  form 

second  fundamental  form 

Interval 

generating  planar  curve  for  a  sphere 

auxiliary  parameters  for  second  fundamental  form 

vector  sum  of  machine  center  to  back  and  sliding  base 

middle  point  on  the  gear  surface 

number  of  teeth 

plane 

radius  of  a  circle 

x  and  z  coordinates,  respectively,  of  the  center  of  a  circle  in  the  Sc  coordinate 
system 

coordinate  system 

the  smaller  absolute  value  of  A  and  B 

i  •  •  r  t~r(WC)  i  - 

the  projection  of  V  on  the  ec * 

the  projection  of  V  on  the  ec 

point  width 

the  projections  of  vector  rV{l)  on  vectors  eJ;  and  .  respectively 
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Xmcb  machine  center  to  back 

Xsb  sliding  base 

English  Lower  Case 


a 

a 

a 

b 

b 

b2 

c 


CU  >  C12  )  cu 

da 

d\  i  dj ,  d3 


a 


m 


m 


ra 

i 

're 


s 

t 

)  ^2  )  ^4 

U 


U 


11  )  U12  >  UJ1 


constant  (Chapter  1) 

semimajor  axis  of  the  contact  ellipse  (Chapter  3  and  Appendix  A) 
element  of  matrix  [A]  ( i  =  1,2,3  j  —  1,2,3) 
constant  (Chapter  1) 

semiminor  axis  of  the  contact  ellipse  (Chapter  3  and  Appendix  A) 

auxiliary  variables 

clearance 

auxiliary  variables 

average  diameter  of  gear  cutter 

auxiliary  variables 

auxiliary  variables 

gear  ratio 

derivative  of  gear  ratio  with  respective  to  <f>Q 

cradle  angle 

tip  radius  of  the  cutter 

radial  setting 

semimajor  axis  of  the  contact  ellipse 
auxiliary  variables 

surface  coordinates  of  a  cone  surface 


auxiliary  variables 


u2j ,  u31 ,  u32  auxiliary  variables 


Non-English  Upper  Case 


E  surface 

T  shaft  angle 

X  angle  measured  counterclockwise  from  the  root  to  the  tangent  of  the  path  on  the 

gear  surface 

N  ratio  constant 

3?  open  rectangle 

A  discriminant  of  an  equation 


Non- English  Lower  Case 


0 

S 


e 


7 

K 


Kn 


Kr 


orientation  angle  of  ellipse 
mean  spiral  angle 
dedendum  angle 
specified  tolerance  value 
root  angle 
principal  curvature 

*2E  _  K1E 

K  +  K 
i  a 

K  —  K 
i  n 

normal  curvature 

relative  normal  curvature  of  the  mating  surface 


IX 
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U ! 


<t>c 


<t>  W 


o' 


W) 

i'Md 
a</>;  (<*>;) 
(A<r 

(A .<$" 
A^' 

i/> 

6 

^TQ 

T 

£ 

XU 


surface  coordinate  of  a  surface  of  revolution 
pitch  angle 

angles  formed  between  vectors  rV',n  and  e2; ,  and  rVW  and  ,  respectively 
angular  velocity 

turn  angle  of  the  cradle  when  the  work  is  being  cut 
rotation  angle  of  the  work  while  it  is  being  cut 

rotation  angle  of  one  member  while  it  is  being  in  meshing  with  another  member  of 
a  pair  of  gears 

transmission  function,  the  rotation  angle  of  the  gear  in  terms  of  that  of  the  pinion 

in  a  pair  of  meshing  gears 

transmission  function  of  a  pair  conjugate  gear 

transmission  error  function 

predesigned  parabolic  function  of  transmission  errors 
linear  function  of  transmission  errors  induced  by  misalignment 
expressions  of  <j>'  and  A </>'  in  a  new  coordinate  system 
blade  angle 

surface  coordinate  of  a  cone  surface  and  a  surface  of  revolution 
angle  measured  counterclockwise  from  eTj  to  eQj 
auxiliary  variable,  6  ^  q  ±  <j>c 
elastic  approach 

angle  formed  by  the  tangent  to  the  curvature  and  first  principal  curvature 
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SUMMARY 


A  new  approach  for  determination  of  machine-tool  settings  for  spiral  bevel  gears  is  proposed. 
The  proposed  settings  provide  a  predesigned  parabolic  function  of  transmission  errors  and  the 
desired  location  and  orientation  of  the  bearing  contact.  The  predesigned  parabolic  function  of 
transmission  errors  is  able  to  absorb  piece-wise  linear  functions  of  transmission  errors  that  are 
caused  by  the  gear  misalignment  and  reduce  the  gear  noise.  The  gears  are  face-milled  bv  head 
cutters  with  conical  surfaces  or  surfaces  of  revolution. 
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CHAPTER  1 

INTRODUCTION 


1.1  Introduction 

The  most  important  criteria  of  quality  of  meshing  and  contact  of  gears  are  the  low  level  of  noise 
and  the  sufficient  dimensions  and  location  of  the  bearing  contact.  Sometimes  these  requirements 
are  contradictory  and  can  be  achieved  by  a  compromise  in  the  process  of  gear  synthesis.  Such  a 
method  of  synthesis  for  spiral  bevel  gears  has  been  developed  in  this  report. 

Traditionally,  Gleason’s  spiral  bevel  gears  are  designed  and  manufactured  with  non-conjugate 
tooth  surfaces.  By  varying  machine-tool  settings  the  transmission  errors  can  be  of  different  forms, 
which  included  a  piece-wise  linear  function,  an  “S”  curve,  and  a  parabolic  function,  symmetrical 
or  otherwise.  Only  a  parabolic  function  with  gear  lagging  is  prefered.  The  problem  encountered  is 
that  it  is  very  difficult  to  reduce  the  level  of  a  parabolic  function  of  transmission  errors  with  gear 
lagging. 

Litvin  et  al.  [1]  proposed  a  method  for  generation  of  spiral  bevel  gears  with  conjugate  tooth 
surfaces.  Ideally  such  conjugate  pair  provides  zero  transmission  errors.  In  practice,  spiral  bevel 
gears  are  frequently  required  to  operate  under  misalignment  caused  by  mounting  tolerances  and 
deflections.  Using  the  Tooth  Contact  Analysis  (TCA)  programs  we  have  found  that  the  conjugate 
spiral  bevel  gears  cause  lead  functions  of  transmission  errors  —  strong  monotonous  increasing  or 
decreasing  functions  for  a  cycle  of  meshing.  These  functions  may  be  considered  as  linear  functions 
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or  almost  linear  functions  (Figure  1).  Due  to  gear  misalignment  the  bearing  contact  can  be  shifted 
from  the  desired  location  even  to  the  tooth  edge.  For  this  reason  it  is  necessary  to  control  also  the 
location  and  dimensions  of  the  bearing  contact. 

There  is  an  opportunity  to  reach  these  goals  if  thr  gears  will  be  designed  as  non-conjugate  pairs 
that  transform  rotation  with  a  predesigned  parabolic  function  of  transmission  errors.  Then,  as  it 
will  be  proven  in  the  next  section,  a  linear  function  of  transmission  errors  will  be  absorbed  and  the 
sensitivity  of  the  gears  to  misalignment  will  be  reduced. 

The  determination  of  pinion  machine-tool  settings  is  based  on  the  local  synthesis  of  the  gears 
proposed  by  Litvin  [2,  3,  4],  The  local  synthesis  must  satisfy  the  following  requirements: 

1.  The  gear  surfaces  are  in  tangency  at  the  chosen  mean  contact  point. 

2.  The  tangent  to  the  path  of  contact  has  the  prescribed  direction  at  the  mean  contact  point. 

3.  The  contact  ellipse  for  the  tooth  surfaces  has  the  desired  dimensions  at  the  mean  contact 
point. 

4.  The  transmission  function  <f>2(^>,)  has  the  prescribed  value  at  the  mean  contact  point  and  its 
second  derivative  is  negative  on  gear  convex  side  and  positive  on  gear  concave  side.  Here, 
and  <j>2  are  the  rotation  angles  of  the  pinion  and  gear  while  they  are  being  cut,  respectively. 

Requirement  4  means  that  the  function  of  transmission  errors  is  a  parabolic  one  with  gear  lagging 
within  the  neighborhood  of  the  mean  contact  point. 

Traditionally,  a  pair  of  Gleason’s  gears  is  generated  by  two  cones.  In  some  cases  the  pinion  is 
generated  by  a  surface  of  revolution  instead  of  a  cone  surface  to  obtain  better  bearing  contact  and 
to  avoid  an  edge  contact.  Both  cases  are  investigated  and  the  machine-tool  settings  are  determined 
according  to  the  local  synthesis  and  predesigned  function  of  transmission  errors. 
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Figure  1:  Transmission  errors  of  conjugate  gears  caused  by  misalignment. 
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1.2  Transmission  Errors  And  Its  Compensation 


In  theory  a  pair  of  mating  gears  transforms  rotation  with  a  constant  gear  ratio 


m2l 


El 

n2 


(1.1) 


where  ui,  and  ui2  are  the  angular  velocities  of  the  gears 

iV,  and  N2 are  the  numbers  of  teeth  of  pinion  and  gear,  respectively 

Therefore,  the  transmission  function  is  expected  to  be  linear  for  ideal  gears,  i.e., 

I1-2) 

However,  the  actual  function  <t>'2{4>[)  is  always  different  from  <t>2(<t>[)  except  at  the  mean  contact 
point.  The  transmission  errors  are  defined  as  the  difference  of  theoretical  and  actual  functions  of 
transmission  functions,  i.e., 


A  KW  =  *'M)  -  i'M)  =  <W  -  y*', 


(1.3) 


In  general  the  transmission  errors  of  gears  may  occur  due  to  the  following  four  reasons  [5]: 

1.  The  gears  cannot  exactly  transform  rotation  described  by  equation  (1.2)  because  of  the 
method  of  their  generation.  Spiral  bevel  gears  and  hypoid  gears  that  are  generated  by  Gleason 
methods  are  good  examples  for  this  case. 
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2.  The  gear  axes  are  misaligned  or  the  gear  shafts  are  deflected.  Zhang,  in  his  dissertation  [5], 
has  proved  that  the  deflected  gear  shafts  can  be  modeled  as  misaligned  gear  axes.  Spur  gears, 
helical  gears,  and  conjugate  spiral  bevel  gears  are  very  sensitive  to  misalignment. 

3.  Heat  treatment  deviation  of  the  real  gear  surface  is  one  of  the  most  important  factors  in 
surface  distortion. 

4.  The  elastic  deformation  of  gear  tooth  surfaces  under  applied  load. 

Cases  1  and  2  among  the  above-mentioned  are  the  main  sources  of  transmission  errors.  They 
will  be  discussed  later.  The  topics  of  3  and  4  are  beyond  the  scope  of  this  report  and  will  not  be 
discussed. 

For  a  pair  of  conjugate  gears  under  misalignment,  the  investigation  results  in  that  the  trans¬ 
mission  function  </>'((/>')  becomes  a  discontinuous  piece- wise  function  that  is  linear  or  almost  linear 
for  each  cycle  of  meshing  as  shown  in  Figure  2.  The  corresponding  transmission  errors  determined 
by  equation  (1.3)  are  also  an  approximately  piece- wise  linear  function  as  shown  in  Figure  3.  Such 
functions  cause  a  discontinuity  in  the  regular  tooth  meshing  and  usually  impact  at  the  transfer 
point. 

There  is  another  type  of  function  of  transmission  errors  that  is  a  piece- wise  parabolic  function 
as  shown  in  Figure  4.  This  type  of  transmission  errors  does  not  cause  a  discontinuity  of  regular 
tooth  meshing  at  transfer  points.  Gears  with  this  type  of  transmission  errors  are  not  so  sensitive 
to  misalignment.  This  statement  is  based  on  an  investigation  into  the  interaction  of  a  parabolic 
function  with  a  linear  function. 

Consider  that  a  pair  of  gears  is  predesigned  with  a  parabolic  function  of  transmission  errors. 
This  function  may  be  represented  by 

(A  =  <.«)’  (1.4) 
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Figure  2:  Transmission  functions  of  gears  under  misalignment. 
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Figure  4:  A  piece-wise  parabolic  function  of  transmission  errors. 
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The  level  of  transmission  errors  is  a(2ir/Ni)2 . 

Misalignment  induces  a  linear  function  of  transmission  errors.  It  may  be  represented  by 


(A^f  =  b<f>[ 


(1.5) 


Since  (A<£')(1>  and  (A<j i')<2)  are  very  small,  the  principle  of  superposition  can  be  applied  for  the 
interaction  of  functions  (A<£')(1>  and  ( A<p')|2) .  Therefore,  the  resulting  function  is 

A  <  =  (A 4>'f]  +  (A^),S>  =  +  b<P[  (1.6) 


Equation  (1.6)  can  be  rewritten  in  a  new  coordinate  system  by  (Figure  5) 

A  V'j  =  a(V'()J 


(1.7) 


where 


AV/=A*;  +  - 


(1.8) 


From  equation  (1.7)  we  know  that  although  the  misalignment  occurs,  the  resulting  function  of 
transmission  errors  represents  the  same  parabolic  function  that  has  been  translated  with  respect 
to  the  given  parabolic  function.  This  means  that  the  predesigned  parabolic  function  (A<£')(1>  will 
absorb  the  linear  function  (A <£')  induced  by  misalignment.  The  level  of  transmission  errors 
remains  the  same  since  the  parabolic  function  of  each  tooth  translates  the  same  amount. 
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Misalignment  changes  the  path  of  contact.  The  locations  of  transfer  points  are  shifted  to  an 
edge.  The  amount  of  the  shift  is  determined  by  b/2a.  In  general,  the  absolute  value  of  b  increases 
if  the  amount  of  misalignment  increases.  It  is  possible  that  an  unfavorable  ratio  b/2a  may  cause 
one  of  the  transfer  points  to  be  off  the  tooth  surface  and  that  the  function  of  transmission  errors, 
A il>' ,  will  become  a  discontinuous  function  for  every  cycle  of  meshing  (Figure  6).  To  avoid  this, 
the  level  of  predesigned  function  of  transmission  error,  or  the  absolute  value  of  a,  should  be  chosen 
with  the  expected  level  of  transmission  errors  caused  by  misalignment. 
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Figure  6:  Discontinued  parabolic  function  of  transmission  errors. 


CHAPTER  2 

GLEASON’S  SPIRAL  BEVEL  GEARS 


2.1  Gleason  System 

The  Gleason  Works,  Rochester,  New  York,  is  one  of  the  leading  companies  that  produces 
equipment  for  manufacture  of  bevel  and  hypoid  gears.  William  Gleason  built  the  first  machine  in 
1874  to  cut  bevel  gears  with  straight  teeth  [6].  During  the  following  years,  the  Gleason  Works  has 
developed  a  set  of  machines  to  generate  spiral  bevel  gears.  The  basic  construction  (Figure  7)  of  a 
cutting  machine  consists  of  three  major  parts:  the  frame,  the  cradle,  and  the  sliding  base  [7,  8]. 

When  cutting  starts,  the  work  is  plunged  into  the  cutter.  As  the  cutter  rotates  through  the 
blank,  a  relative  rolling  motion  is  produced  between  the  cradle  and  the  work  spindle  to  generate  the 
tooth  surface.  While  the  cutter  rolls  out  of  engagement  with  the  work,  the  cradle  reverses  rapidly, 
the  sliding  base  on  which  the  work  is  mounted  is  translated  with  respect  to  the  cutter,  and  the 
work  is  indexed  ahead  for  cutting  the  next  tooth.  This  sequence  of  operations  is  repeated  until  the 
last  tooth  is  cut. 

In  the  process  of  cutting,  the  head-cutter  rotates  about  its  axis,  and  the  axis  generates  in  the 
cradle  coordinate  system  a  cylindrical  surface.  We  may  imagine  that  the  cutter  generates  a  tooth 
of  crown  gear  as  shown  in  Figure  8.  Therefore,  the  cutting  process  corresponds  to  the  motion  of 
the  gear  rolling  on  a  crown  rack.  The  angular  velocity  of  the  head-cutter  about  its  axis  is  not 
related  with  the  generating  motions  and  depends  only  on  the  desired  velocity  of  cutting.  This  is 
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Cradle  Housing 


Top  View 


Figure  8:  Cutting  spiral  gear  teeth  on  the  basic  crown  rack. 

15 


an  important  advantage  of  the  Gleason  methods  of  manufacture.  Another  advantage  is  that  the 
same  method  for  generation  can  be  used  as  well  for  grinding.  Grinding  is  essential  for  producing 
gears  with  hardened  tooth  surfaces  and  of  high  quality. 

2.2  Head  Cutters 

Traditionally  straight-sided  blades  have  been  applied  in  practice.  The  blades  of  the  cutter 
generate  cone  surfaces  while  the  cutter  rotates  its  axis.  Figure  9  shows  these  two  cones.  A  current 
point  B  on  the  cone  surface  is  represented  in  the  coordinate  system  Sc  as  follows: 


‘  BCr  ' 

r  cot  ip  —  u  cos  ip 

K 

u  sin  ip  sin  6 

Be, 

u  sin  ip  cos  9 

1 

1 

(2.1) 


where  u  =  AB  and  6  are  the  surface  coordinates,  r  is  the  tip  radius  of  the  cutter,  and  ip  is-  the 
blade  angle.  For  the  inside  blade  of  the  cutter,  ip  is  an  acute  angle.  For  the  outside  blade  of  the 
cutter,  ip  is  an  obtuse  angle. 

Using  equations  (A. 5)  and  (2.1)  (provided  usinip  ^  0),  we  obtain  the  equations  of  the  unit 
normal  to  the  cone  surface. 


’  nc,  ' 

sin  ip 

nc  = 

=  ± 

cos  ip  sin  9 

.  nc  . 

cos  ip  cos  6 

The  total  differential  of  vector  Bc  is 
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—  cos  ip  du 


\dBc)  = 


sin  ip( sin  9  du  -f  u  cos  0  dO) 


sin  tp(co s  9  du  —  u  sin  9  d6) 


The  total  differential  of  vector  nc 


[dnc]  =  ± 


0 

cos  ip  cos  9  d9 
-  cos  ip  sin  9  d9 


Equations  (A. 26),  (2.3),  and  (2.4)  yield 

0  ±  cos  ip  cos  9  d9  _  T  cos  ip  sin  9  dO 

-  cos  ip  du  _  sin  xp{ sin  9  du  +  u  cos  9  d6)  sin  xp(c os  9  du  -  u  sin  8  d9) 

Equation  (2.5)  is  satisfied  if 


dud9  —  0 


One  of  the  principal  directions  corresponds  to  du  =  0;  the  other  one  to  d9  _ 
represented  by  equations 


dBc 


89 


8BC 


e 


lie  ~ 


du 

8BC 

du 


i 

(2.3) 


(2.4) 


(2-5) 


(2.6) 

0.  They  can  be 


(2.7) 


(2.8) 
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Equations  (2.3)  and  (2.7)  yield 


e"/<  =  ± 


0 

cos  6 
-  sin  0 


(2.9) 


Plugging  du  =  0  into  equations  (2.5),  we  have 


^  u  tan  ip 


(2.10) 


The  sense  of  the  principal  curvature  relies  on  the  chosen  direction  of  the  normal. 
Similarly,  the  unit  vector  of  the  second  principal  direction  is 

-  cos  ip 

eIJc  =  ±  sin  ip  sin  8 
sin  ip  cos  6 

The  principal  curvature  is 


Kn  =  ° 


(2.11) 


(2.12) 


In  addition  to  the  cone  surface,  a  tool  provided  by  a  surface  of  revolution  is  considered  here. 
This  surface  of  revolution  is  generated  by  an  circular  arc  that  rotates  about  the  cutter  axis.  Such 
a  surface  can  be  applied  as  a  grinding  wheel  or  as  a  surface  of  a  tool  with  curved  blades. 

Suppose  the  generating  planar  curve  L  (Figure  10)  is  an  arc  of  a  circle  of  radius  R  centered 
at  point  (iZc.O.JZeJ.  The  spherical  surface  is  generated  by  the  circle  in  the  rotational  motion 
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about  the  Zc- axis.  Consider  an  auxiliary  coordinate  system  Sc<  which  is  rigidly  connected  to  the 
generating  circle.  Initially  Sc<  and  Sc  coincide.  The  generating  curve  may  be  represented  in  the 
coordinate  system  Sc>  with  the  matrix  equation 


'  Be,m  ‘ 

RCz  +  R  cos  A 

BC'y 

0 

RCz  +  R  sin  A 

1 

1 

(2.13) 


where  A  is  the  varied  parameter  for  planar  curve  L.  The  parameter  A  lies  within  the  following 
intervals: 


Inside  blade 


Outside  blade 


0  <  A  <  ir/2,  if  L  is  concave  down; 

7T  <  A  <  Ztt/2,  if  L  is  concave  up; 

3t/2  <  A  <  27t,  if  L  is  concave  down; 
7r/2  <  A  <  7T,  if  L  is  concave  up. 


The  auxiliary  coordinate  system  Sc>  rotates  about  the  Zc  axis  and  the  coordinate  transformation 
from  Sc>  to  Sc  is  (Figure  11) 


'  BCt  ' 

'  1  0  0  0  ' 

Bc<t 

BCy 

0  cos  6  sin0  0 

BC'y 

Be . 

0  -  sin  6  cos  9  0 

Be. 

1 

0  0  0  1 

1 

Equations  (2.13)  and  (2.14)  yield 


(2.14) 


21 


'  BCx  ‘ 

RCz  +  R  cos  A 

BCv 

(RCz  +  R  sin  A)  sin  8 

Be, 

( RCl  +  Rsin  A)  cos# 

1 

1 

(2.15) 


Using  equations  (A. 5)  and  (2.15),  the  unit  normal  to  this  spherical  surface  may  be  represented  by 


’  nc.  ' 

cos  A 

nc  = 

nCv 

=  ± 

sin  A  sin  6 

.  ncx  . 

sin  A  cos  6 

(2.16) 


According  to  Rodrigues’  formula,  the  principal  directions  on  the  generating  surface  correspond  to 
d\  =  0  and  d6  -  0,  respectively.  The  unit  vector  of  the  principal  direction  corresponding  to  dX  =  0 
is 


0 


=  ± 


cos  6 
-  sin  6 


(2.17) 


The  principal  curvature  is 


_  sin  A 
^  RCl  R  sin  A 


(2.18) 


The  unit  vector  of  the  principal  direction  corresponding  to  d6  =  0  is 


■nc 


=  ± 


—  sin  A 
cos  A  sin  9 
cos  A  cos  6 


(2.19) 
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The  principal  curvature  is 


K 


n 


(2.20) 


2.3  Coordinate  Systems  and  Sign  Conventions 

Left-hand  gear-members  are  usually  cut  by  the  counterclockwise  motion  of  the  cradle  that 
carries  the  head-cutter.  This  motion  is  viewed  from  the  front  of  the  cradle  and  from  the  back  of 
the  work  spindle.  Cutting  is  performed  from  the  toe  to  the  heel.  Figure  12  shows  the  top  and  front 
views  of  the  machine  when  a  left-hand  gear- member  is  cut. 

Right-hand  gear-members  are  usually  cut  by  motions  that  are  opposite  to  the  motions  of  the 
left-hand  members  being  cut.  Cutting  is  performed  from  the  heel  to  the  toe.  Figure  13  shows  the 
top  and  front  views  of  the  machine  for  this  case. 

We  set  up  five  coordinate  systems  in  either  case.  Coordinate  system  Sc  is  rigidly  connected  to 
the  head  cutter,  coordinate  system  Sw  is  rigidly  connected  to  the  work,  and  coordinate  systems 
Sm,  Sp  and  Sa  are  rigidly  connected  to  the  frame.  Axes  Zm  and  Zp  coincide  with  the  root  fine  and 
pitch  line,  respectively.  Axis  Xm  is  perpendicular  to  the  generatrix  of  the  root  cone  of  the  work. 
Axis  Xp  is  perpendicular  to  the  generatrix  of  the  pitch  cone  of  the  work.  Axes  Za  and  Zw  coincide. 
Origin  Om  is  located  at  the  machine  center,  and  origins  Oa  and  Op  are  located  at  the  apex  of  the 
pitch  cone  of  the  work. 

Three  special  machine-tool  settings,  which  are  the  machining  offset,  machine  center  to  back, 
and  the  sliding  base,  are  used  only  for  the  generation  of  pinions.  The  machining  offset,  denoted 
by  Em,  is  the  shortest  distance  between  the  cradle  axis  and  pinion  axis.  In  figures  12  and  13,  Lm 
represents  a  vector  sum  of  machine  center  to  back,  Xmcb,  and  the  sliding  base,  Xsb-  The  change 
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TABLE  1.  SIGN  CONVENTIONS  OF  MACHINE-TOOL  SETTINGS. 


Right-Hand  Member 

Left-Hand  Member 

Cradle  Angle 

Q 

nr 

counterclockwise  (CCW) 

clockwise  (CW) 

- 

clockwise  (CW) 

counterclockwise  (CCW) 

Machining  Offset 

Em 

+ 

above  machine  center 

below  machine  center 

- 

below  machine  center 

above  machine  center 

Machine  Center  to  Back 
Xmcb 

+ 

work  withdrawal 

work  withdrawal 

- 

work  advance 

work  advance 

Sliding  Base 
-V  SB 

+ 

work  withdrawal 

work  withdrawal 

— 

work  advance 

work  advance 

Lm 

+ 

Xsb  -  +  and  Xmcb '■  - 

Xsb  :  +  and  Xmcb'  - 

- 

Xsb  -  -  and  Xmcb  ■  + 

X sb  ■  ~  and  Xmcb-  + 

of  machine  center  to  back  is  directed  parallel  to  the  pinion  axis  and  the  direction  of  the  sliding  base 
is  pointed  parallel  to  the  cradle  axis. 

The  sign  conventions  for  machine-tool  settings  are  given  in  Table  1. 

2.4  Generated  Tooth  Surfaces 

The  generated  surface  hw  is  an  envelope  of  the  family  of  the  tool  surface  Ec-  Surfaces  Eiy 
and  Ec  contact  each  other  at  every  instant  along  a  line  which  is  a  spatial  curve.  Surface  Evv  is 
conjugate  with  E c-  In  mathematical  sense  the  determination  of  a  conjugate  surface  is  based  on 
the  theory  of  an  envelope  of  a  family  of  given  surfaces.  In  differential  geometry,  to  determine  Eyy 
we  must  find: 

(a)  the  family  of  surfaces  E$  generated  by  the  given  surface  Ec  in  the  Sw  coordinate  system 
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and 


(b)  the  envelope  of  the  family  of  surfaces  £$. 

The  matrix  representation  of  the  family  of  surfaces  £$  may  be  represented  by  the  matrix  equation 

[Bw]  =  {Mwe}[Bc}  (2.21) 

where  [ Mwc\  is  a  matrix  which  describes  the  transformation  of  coordinates  from  the  “old”  coordinate 
system  Sc  to  the  “new”  coordinate  system  Sw.  From  Figures  12  and  13,  we  obtain 

[Mwc]  =  [Mwa  1  [Map]  [ M p™]  [Mmc]  (2.22) 

We  can  obtain  [M„,a]  from  Figure  14  as 

cos  <pw  ±sin  <t>w  0  0 

F  sin  <pw  cos  0  0 

[Mwa]  =  (2.23) 

0  0  10 

0  0  0  1 

where  <f>w  is  the  rotation  angle  of  the  work  while  it  is  being  cut.  Here  the  upper  sign  corresponds 
to  the  generation  of  a  left-hand  spiral  bevel  gear  that  is  shown  in  Figure  12,  and  the  lower  sign 
corresponds  to  the  generation  of  a  right-hand  spiral  bevel  gear  shown  in  Figure  13.  Henceforth  we 
will  obey  this  notation. 

The  transformation  matrices  [ Map ]  and  [Mpm]  can  be  obtained  from  Figures  12  and  13  as 
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cos  /i  0  sin  n  0 


[Map]  = 


0  10  0 
-  sin  n  0  cos  [i  0 


[Mpm]  = 


[  0  0  0  1  J 

cos  6  0  —  sin  S  —  Lm  sin  S 

0  1  0  ±Em 

sin<J  0  cos  6  LmcosS 

0  0  0  1 


(2.24) 


(2.25) 


where  p  and  i5  are  the  pitch  angle  and  dedendum  angle  of  the  work,  respectively.  To  derive  the 
transformation  matrix  [Mmc],  let  us  apply  an  auxiliary  coordinate  system  S,  rigidly  connected  to 
the  tool  (Figure  15).  Thus 


[Mmo]  =  \Mm,}  [M,c] 


'  1 

0 

0 

0  ' 

'  1 

0 

0 

0 

0 

cos  4>c 

±  sin  4>c 

0 

0 

cos  q 

T  sin  q 

Ts  sin  q 

0 

T  sin  cpc 

COS  <t>c 

0 

0 

±  sin  q 

cos  q 

s  cos  q 

.0 

0 

0 

1 

0 

0 

1 

(2.26) 


where  <pc  is  the  turn  angle  of  the  cradle  while  the  work  is  cut,  and  s  is  the  radial  setting.  The 
determination  of  the  envelope  Ew  of  the  locus  of  surfaces  E$  is  based  on  necessary  and  sufficient 
conuittons  of  envelope  existence  that  have  been  developed  in  the  classical  Differential  Geometry.  A 
simpler  method  representation  for  determination  of  necessary  condition  of  Eiy  existence  is  bas..d 
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on  the  geometric  property  of  conjugate  surfaces:  at  points  of  tangency  of  the  generating  surface 
and  the  generated  surface  Ew  the  common  unit  normal  n  to  the  surfaces  is  perpendicular  to 
the  slide  velocity  V(C1V)  Qf  these  two  surfaces  [9,  10].  This  is  given  by  the  scalar  product 

n  •  V(CWr‘  =  0  (2.27) 

In  the  modern  theory  of  gearing,  equation  (2.27)  is  called  the  equation  of  meshing.  This  equation 
is  of  fundamental  importance  in  the  kinematics  of  gearing.  Since  equation  (2.27)  is  valid  in  any 
reference  system,  we  will  derive  the  equation  of  meshing  in  the  Sm  coordinate  system.  Let  us 
designate  trVLC]  and  trV the  transfer  velocities  of  common  contact  points  Brn  on  the  cutter  and 
the  work,  respectively.  Thus 


V<cw>  ~  V{C)  ViW) 

Vm  -  trVm  ~  trVm 


(2.28) 


-•(  c) 

The  cradle  rotates  about  the  Zm  axis  with  the  angular  velocity  uJm  (Figures  12  and  13);  therefore, 

-{C) 

the  transfer  velocity  trVm  is  represented  by  the  equation 


T?<c>  _(o  s 

■Vm  =  x  B» 


trv  rn 


(2.29) 


The  work  rotates  about  the  Za  axis  with  the  angular  velocity  (Figures  12  and  13)  which  does 
not  pass  through  the  origin  Om  of  the  Sm  coordinate  system.  It  is  known  from  the  theoretical 
mechanics  that  the  angular  velocity  may  be  substituted  by  an  equal  vector  tJTn  which  passes 
through  Om  and  a  vector-moment 

(2.30) 


TV  _(W) 


32 


Note  that  the  moment  has  the  same  unit  and  physical  meaning  as  linear  velocity.  Thus 


,?(W)  -(”0  5  ,  ~  7; 

trl  m  ^  4"  0 mO a  X  U> 


_<«0 

m 


It  is  evident  from  Figures  12  and  13  that 


(O  I  __ 


(C) 


1 

0 

0 


(WO 


o' 


=  ±w 


(WO 


-  smo 
0 

cos  7 


OmOa  = 


0 

T Em 

Tm 


In  equation  (2.33)  7  is  the  root  angle  of  the  work.  Substituting  equation  (2.29)- 
(2.28),  we  obtain 


yiCW) 

v  m 


w(M°(£m  ±  Bm  )  cos  7 


±w(C)5mi  +  wl"''[(5mj  q:  Lm)sin7  T  5mi  COS7] 

±u/W)(£f7ly -£m)sin7 


(wo 


(2.31) 


(2.32) 


(2.33) 


(2.34) 


(2.34)  into  equation 


(2.35) 
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The  coordinates  of  the  common  contact  points  Bm  may  be  obtained  from  equations  of  the  generating 
surface  Sc-  Then  we  get 


[Bra]  =  [Mmc]  [Be] 


(2.36) 


The  common  unit  normals  nm  may  be  represented  by  the  unit  normals  to  Sc-  Therefore 


[nm]  —  \L  me  ]["e] 


(2.37) 


where  [Lmc\  is  the  rotation  matrix  obtained  by  eliminating  of  the  last  row  and  last  column  of  the 
corresponding  matrix  [Mmc]. 

Hence,  if  Sc  is  a  cone  surface,  substituting  equations  (2.1)  and  (2.26)  into  equation  (2.36)  we 
obtain 


r  cot  ip  —  u  cos  ip 

Bmy 

u  sin  ip  sin  sin(g  -  <pc ) 

u  sin  t p  cos  r  +  s  cos(g  -  <pc ) 

1 

1 

where  r  =  6^q±<pc-  Substituting  equations  (2.2)  and  (2.26)  into  equation  (2.37)  the  unit  normals 
may  be  represented  as 


sin  tp 

^TTlj 

=  ± 

cos  ip  sin  r 

.  nm,  . 

cos  ip  cos  r 

(2.39) 


Similarly  if  Sc  is  a  spherical  surface,  substituting  equations  (2.15)  and  (2.26)  into  equation  (2.36), 
we  obtain 
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BfUz 

Rc r  +  R  cos  A 

Bmy 

( RCx  +  R  sin  A)  sin  r  ^  s  sin(^  -  <pc ) 

Bmi 

( RCx  +  R  sin  A)  cos  r  +  s  cos(g  -  <pc ) 

1 

1 

(2.40) 


Substituting  equations  (2.16)  and  (2.26)  into  equation  (2.37)  the  unit  normals  may  be  represented 
as 


^TJlx 

cos  A 

^•my 

=  ± 

sin  A  sin  r 

^mz 

sin  A  cos  r 

(2.41) 


Designate 


u> 


u ) 


<a 

Jw) 


(2.42) 


Using  equations  (2.27),  (2.35),  (2.38),  and  (2.39),  we  may  obtain  the  equation  of  meshing  for  the 
case  that  £c  is  a  cone  surface  by 


(u  -  r  cot  ip  cos  ip)  cos  7  sin  r  +  s[(mclv  -  sin  7)  cos  ip  sin  6  ^  cos  7  sin  ip  sin(g  -  <pc )] 
±  .Em  (cos  7  sin  ip  +  sin  7  cos  ip  cos  r)  -  Lm  sin  7  cos  ip  sin  r  =  0 


(2.43) 


For  Sc  being  a  spherical  surface,  using  equations  (2.27),  (2.35),  (2.40),  and  (2.41),  the  equation  of 
meshing  is  represented  by 


( RCl  cos  A  -  RCl  sin  A)  cos  7  sin  r  +  s{(mcw  -  sin  7)  sin  A  sin  6  ^  cos  7  cos  A  sin(g  -  <pc)] 
±Em(  COS7COSA  +  sin  7  sin  A  cos  r)  -  Lm  sin7sinAsinr  =  0 


(2.44) 
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Equations  (2.43)  and  (2.44)  relate  the  generating  surface  coordinates  (u  and  6  for  a  cone  surface 
or  A  and  6  for  a  surface  of  revolution)  with  the  turn  angle  4>c . 
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CHAPTER  3 

SYNTHESIS  OF  SPIRAL  BEVEL  GEARS 


3.1  Gear  Machine-Tool  Settings 

We  designate  for  the  following  discussions  the  gear-generating  tool  surface  by  Eg,  the  generated 
gear  surface  by  £21  the  pinion-generating  tool  surface  by  £p,  and  the  generated  pinion  surface  Ei- 
A  parameter  with  the  subscript  i  indicates  that  it  is  related  to  surface  E;.  To  set  up  the  gear 
machine-tool  settings,  the  following  data  are  considered  as  given: 

r :  shaft  angle 

At2  :  gear  tooth  number 

A, :  pinion  tooth  number 

7j :  gear  root  angle 

A:  mean  pitch  cone  distance 

0:  mean  spiral  angle 

xpG:  blade  angle  for  gear  cutter 

dG  -.  average  diameter  of  gear  cutter 

wQ:  point  width 
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3.1.1  Preliminary  Considerations 


We  prefer  to  calculate  the  values  of  pitch  angles  and  dedendum  angles  rather  than  obtain  them 
from  the  blank  design  summary  because  the  data  in  the  summary  are  not  accurate  enough  for 
computer  calculations. 

The  gear  pitch  angle  is  represented  by 


sinT 

H2  —  arctan  -rf - 

TT  +  cosr 


(3.1) 


The  pinion  pitch  angle  is 


=  r  -  H2 


(3.2) 


The  dedendum  angles  are 


=  f*i  -  7i  i  S2  =  Hi  ~  T2 


(3.3) 


3.1.2  Gear  Cutting  Ratio 

The  process  of  gear  generation  is  based  on  the  imaginery  meshing  of  a  crown  gear  with  the 
member-gear.  The  instantaneous  axis  of  rotation  by  such  meshing  coincides  with  the  pitch  line, 
axis  Zp,  that  is  shown  in  Figures  12  and  13.  The  generating  surface  Sc,  which  may  be  imagined  as 
the  surface  of  the  crown  gear,  and  the  to  be  generated  gear  surface  £2  contact  each  other  at  a  line 
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at  every  instant.  The  ratio  of  angular  velocities  of  the  crown  gear  and  the  being  generated  gear  (the 
cutting  ratio)  remains  constant  while  the  spatial  line  of  contact  moves  over  surfaces  Eg  and  £2- 
The  determination  of  cutting  ratio  is  based  on  following  consideration.  The  angular  velocity  in 
relative  motion  is 


U)  =  LJ 


(3.4) 


This  means  that  vectors  u >(G2>  and  kp  are  collinear.  Since  equation  (3.4)  is  valid  in  any  reference 
frame,  let  us  derive  it  in  the  Sm  coordinate  system.  From  Figures  12  and  13  we  have 


sin  82 


cos  S2 


(3.5) 


By  replacing  the  superscript  ‘c’  by  ‘ff’  in  equation  (2.32)  and  lw'  by  ‘2’  in  equation  (2.33),  we  may 
represent  in  matrix  from  angular  velocities  lJ(G)  and  w(2).  Consequently,  we  obtain  the  following 
equation 


(G)  1  (2)  . 

¥<*>  ±  u>  sm  72 

sin  6 , 


(J) 

Toj  cos  72 
cos  6. 


(3.6) 


Equation  (3.6)  results  in  that 


m 


02 


(O) 


u> 


(2) 


sin  pj 
cos 


(3.7) 
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3.1.3  Cutter  Tip  Radius,  Radial  Setting,  and  Cradle  Angle 


Figure  16  shows  that  the  inside  and  outside  tip  radii  of  the  head-cutter  are  represented  by 


rG  =  ~{dG  ^  WG) 


(3.8) 


Figure  16  shows  the  front  view  of  the  installation  of  the  head  cutter.  From  the  relations  between 
the  lengths  and  angles  of  the  triangle  0TO0cMo,  we  may  express  the  radial  setting  sG  and  cradle 
angle  qG  as  follows: 


dG  A  cos  S2  sin  /3 


(3.9) 


and 


qG  =  arccos 


.2  2  ,  2 
A  cos  o5  +  s - - 

*  G 

2Asg  cos  S3 


(3.10) 


3.2  Determination  of  the  Mean  Contact  Point  on  the  Gear  Tooth  Surfaces 

The  gear  and  pinion  surfaces  of  spiral  bevel  gears  are  in  point  contact  at  every  instant.  The 
mean  contact  point  is  the  center  of  the  bearing  contact  and  its  location  is  selected  generally  at  the 
middle  of  the  working  depth  on  the  gear  tooth.  Figure  17  shows  a  gear  tooth  surface.  Section  AD 
is  the  gear  tip  and  it  is  parallel  to  the  generatrix  of  the  root  cone  of  the  pinion.  Section  BC  is  the 
pinion  tip  and  it  is  parallel  to  the  root  line  of  the  gear.  The  working  area  is  within  OABCD.  In 
the  Sp  coordinate  system,  line  AD  may  be  represented  by 
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(3.11) 


Bpx  —  BPi  tan  6X  c 

where  c  is  the  clearance  and  6X  is  the  pinion  dedendum  angle.  Line  BC  is  represented  by 

BPx  =  -BVx  tan  67  +  c  (3-12) 

The  mean  contact  point  is  located  on  a  line  which  passes  through  the  middle  point  of  the  two  points 
at  which  the  normal  section  of  the  gear  surface  intersects  line  AD  and  line  BC ,  respectively.  In 
addition,  the  mean  contact  point  must  be  on  the  gear  surface.  This  means  that  it  must  satisfy  the 
equation  of  meshing  for  the  gear  being  generated  by  the  tool.  We  will  use  these  two  requirements 
to  determine  the  location  of  the  mean  contact  point  and  represent  the  procedure  of  derivations  as 
follows 

Step  1:  The  initial  guess  for  0G  is 

eo  =  ±(«o  -  0  +  ir/2) 

Step  2:  Determination  of  uG  based  on  the  given  6a 

Equation  (2.43)  determines  parameter  uG.  The  turn  angle  <pG  is  set  to  zero  when  equa¬ 
tion  (2.43)  is  applied. 

Step  3:  Representation  of  gear  tooth  surface  in  coordinate  systems  Sc  and  Sp 

Equation  (2.1)  determines  the  gear  tooth  surface  in  coordinate  system  Sc.  The  gear  tooth 
surface  may  be  represented  in  the  Sp  coordinate  system  as  follows: 

[Bp]  =  [Mpm]  [Mmc]  [Bc]  (3.13) 
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Transformation  matrix  [Mpm]  may  be  obtained  from  equation  (2.25)  by  setting  Em  and  Lm 
to  zero.  Equation  (2.26)  determines  matrix  [Mmc]. 


STEP  4:  Determination  of  middle  point 

The  x  coordinate  of  the  middle  point  M  of  the  two  points,  which  are  the  intersections  of  the 
normal  section  of  the  gear  tooth  surface  and  the  gear  tooth  tips,  may  be  obtained  by 


MPz  = 


BPz( tan <5,  -  tan62) 


(3.14) 


The  above  equation  is  derived  by  dividing  the  sum  of  equations  (3.11)  and  (3.12)  by  2. 


STEP  5:  Judgement  of  uG 

The  acceptable  value  of  ua  is  determined  by  the  following  criterion: 


i  BPl  |  <  f 


where  e  is  a  specified  tolerance  value.  If  the  above  criterion  is  satisfied,  parameters  uc  and  6a 
of  the  mean  contact  point  are  determined.  Otherwise,  repeat  Step  2  to  Step  5  by  a  new 
value  of  8a  until  the  criterion  is  satisfied. 

As  a  matter  of  fact,  the  determination  of  the  location  of  the  mean  contact  point  is  the  same  as 
that  of  a  root  of  equation 


BPz  MPl  —  0 


(3.15) 
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The  new  value  of  the  6a  in  Step  5  depends  on  which  method  is  used  to  solve  this  equation.  In 
this  study  Newton's  method  was  used. 

So  far  we  have  already  determined  parameters  ua  and  0G  of  the  mean  contact  point.  Repeating 
ihe  task  done  in  Step  3,  we  have  the  coordinates  of  the  mean  contact  point  B .  The  common  unit 
normal  n  to  surfaces  Eg  and  E2  at  the  mean  contact  point  B  is 

[np]  =  [ Lpm ]  [Lmc]  [nc]  (3.16) 


where  matrix  [Lpm]  is  obtained  by  deleting  the  fourth  row  and  column  from  matrix  [Mpm]  given 
by  equation  (2.25).  Similarly,  we  may  obtain  rotation  matrix  [Lmc]  from  matrix  [Mmc\  by  equa¬ 
tion  (2.26).  Although  the  unit  normal  has  two  directions,  we  choose  the  direction  corresponding  to 
the  positive  sign  in  equation  (2.2)  regardless  of  the  hand  of  the  gear.  The  principal  directions  at 
the  mean  contact  point  B  on  the  gear  tool  surface  Eg  in  the  Sp  coordinate  system  may  be  obtained 
by  the  following  coordinate  transformation: 


e 


[Lpm]  [Lr, 


ec  1 

GI.II  c  1 


(3.17) 


Here  we  choose  positive  sign  in  equation  (2.9)  as  the  direction  of  the  first  principal  direction. 
The  second  principal  direction  is  determined  by  rotating  of  the  first  principal  direction  about  unit 
normal  by  90°. 

The  principal  curvatures  and  directions  at  the  mean  contact  point  B  on  the  gear  surface  E2  may 
be  derived  according  to  the  formula  expressed  in  Section  A. 2.  Note  that  surfaces  Eg  and  E2  are 
in  line  contact.  To  apply  these  formula,  we  may  consider  that  surfaces  E2  and  Eg  are  equivalent 
to  surfaces  E^  and  Eg,  respectively,  in  Section  A. 2. 
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The  derivation  of  the  principal  curvatures  and  directions  at  the  mean  contact  point  B  is  per¬ 


formed  as  follows: 


|2) 

Step  1:  We  represent  the  angular  velocity  uJ  in  the  Sp  coordinate  system  as  follows: 


(»>1  ,  (2) 
U)p  =  ±U> 


-  sm  fi2 

0 

:  COS  /X2 


This  is  a  direct  result  from  drawings  of  Figures  12  and  13. 


Step  2:  We  represent  the  angular  velocity  u fG)  in  the  Sp  coordinate  system  as  follows 


(0)1  (G) 


I  = 


cos  S2 
0 

sin  6, 


This  is  also  a  direct  result  from  Figures  12  and  13. 

_(2G)  . 

Step  3:  The  relative  angular  velocity  uip  is  represented  by 


-  sin  +  mG2  cos  S2 


ja  o)  j2)  _( o)  (2) 

WP  =  WP  ~  wp  =  ±u) 


cos  fi2  +  mG2  sin  S2 


Step  4:  The  transfer  velocity  of  the  mean  point  B  on  surface  Eg  is 


,7  (O)  ^<G)  S 

IrV.  —  x  Bp 


(3.18) 


(3.19) 


(3.20) 


(3.21) 
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Step  5:  The  transfer  velocity  of  the  mean  point  B  on  surface  £2  is 


Step 


Step  1 


Step 


step  9 


(3.22) 


:  The  relative  velocity  of  the  mean  point  B  is 


(3.23) 


the  projection  of  fJ2GI  on  the  e 


is 


(3.24) 


:  The  projection  of  V^G)  on  the  eGff  is 


vT’ 

y  Gu 


=  v(2G) 

p 


(3.25) 


:  Using  equation  (A. 33),  we  obtain 


=  -kg,V°i 


r  -,(*C) - 

UPeG 


(3.26) 
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Step  10:  Using  equation  (A. 35),  we  have 


=  -K. 


v?G) 

’it  °n 


r  _(2G)  -  - 

~K  UPe°n* 


(3.27) 


Step  11:  Using  equation  (A. 36),  we  obtain 


(ir(2G)\2  ,  (ir(2G)\2  -<2G>  t7(2G) 

a33  —  kg/\^g/  j  "h  Ks,r  (^Gn  j  nPu’p  ^p 


/  _(2)  t7(C)  J5) 

nP  •  (^p  X  trU  -  Wp  X 


-'D 

(3.28) 


Note  that  m'  =0 

G  2 


Step  12:  To  determine  the  principal  directions  at  point  B  on  gear  surface,  we  first  use  equa¬ 
tion  (A.40).  Thus 


tan  2<r 


2fl:3“23 


2  G 


~  fl,3  +(*G,  -  «©„)<*» 


(3.29) 


Rotating  unit  vector  eGj  about  the  unit  normal  vector  n  by  -crJG,  we  may  obtain  unit 

vector  e3  .  Rotating  unit  vector  e2j  abou^  the  unit  normal  vector  n  by  ir/2,  we  may  have 

unit  vector  e,  . 

2  a 

Step  13:  Using  equations  (A. 41)  and  (A. 42),  we  may  determine  the  principal  curvatures  on  the 
gear  surfaces  as  follows: 


k,  —  /c,  = 


a  —a 

23  13 


+  (*gj  ~  *Gj7)Q33 


^33  2<Tj  g 


(3.30) 


K,  f  K. 

3I  2  Z7 


(* 


+  K°xr 


2  2 
a  H-  a 

)  _  13  1  23 


(3.31) 
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Step  14:  Eliminating  k2jj  by  considering  the  sum  of  equations  (3.30)  and  (3.31)  together  and  then 
dividing  the  sum  by  2,  we  can  determine  k2j.  Eliminating  k2[  by  dividing  the  difference  of 
equations  (3.31)  and  (3.30)  by  2,  we  can  determine  k2jj. 

3.3  Local  Synthesis 

The  determination  of  pinion  machine-tool  settings  is  based  on  the  idea  of  local  synthesis  of 
gear  tooth  surfaces  proposed  by  Litvin  [2,  3,  4],  The  goal  of  local  synthesis  for  meshing  of  spiral 
bevel  gears  is  to  satisfy  the  following  requirements: 

1.  The  gear  tooth  surfaces  must  contact  each  other  at  the  prescribed  mean  contact  point  B. 

2.  The  contact  ellipse  for  the  gear  tooth  surface  must  have  the  desired  dimensions  at  point  B. 

3.  The  tangent  to  the  contact  path  must  have  the  prescribed  direction  at  point  B. 

4.  The  instant  gear  ratio  m2l{<f>^)  and  its  derivative  m'j  (</>,)  must  have  the  prescribed  values  at 
point  B. 

The  local  synthesis  for  the  gear  tooth  surfaces  connects  the  concept  of  meshing  and  the  concept 
of  bearing  contact.  It  provides  the  optimal  conditions  of  meshing  for  the  gear  tooth  surfaces  being 
in  mesh  at,  and  within  the  neighborhood  of,  the  mean  contact  point  B.  The  local  synthesis  needs 
the  information  on  the  characteristics  of  the  tooth  surfaces  of  the  zero,  first,  and  second  orders. 

Starting  the  local  synthesis  we  already  know  the  location  of  the  mean  contact  point  B  on  the 
gear  surface,  the  unit  normal  to  the  gear  tooth  surface  at  point  B,  the  principal  curvatures  and 
directions  at  point  B  on  the  gear  tooth  surface. 

We  will  consider  the  local  synthesis  in  a  fixed  coordinate  system  S/.  Figure  18  shows  the 
relations  among  5/,  fixed  coordinate  systems  which  are  attached  to  the  frame  of  the  gear  generator, 
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and  fixed  coordinate  systems  connected  to  the  frame  of  the  pinion  generator.  From  Figure  18  we 
know  that  5/  and  S^g)  coincide  with  each  other.  Therefore,  the  coordinates  of  the  mean  contact 
point  B,  the  orientation  of  the  surface  unit  normal,  and  the  principal  directions  at  the  point  B  on 
the  gear  surface  are  known  since  they  have  been  determined  in  the  5p(o)  system. 


3.3.1  Preliminary  Considerations 

Spiral  bevel  gears  transform  rotation  motion  between  intersecting  shafts  with  an  instantaneous 
point  contact  of  surfaces.  It  corresponds  to  the  second  case  discussed  in  Section  A. 2.  Some  elements 
of  matrix  [A]  shown  in  equation  (A. 30)  are  not  related  with  the  principal  curvatures  and  directions 
of  the  pinion  surface;  therefore,  they  may  be  derived  at  the  stage  where  the  principal  curvatures  and 
directions  are  not  known  yet .  We  will  consider  that  all  derivations  are  performed  in  Sf  coordinate 
system.  Throughout  the  rest  of  the  report,  we  will  drop  the  subscript  if  it  is  considered  in  the  5/ 
coordinate  system. 

The  following  representation  is  the  result  of  direct  observation  of  drawings  of  Figure  18. 


sin  p, 


cos  p. 


(3.32) 


-  sin  Pj 


=  ±m3lu> 


(i) 


0 


cos  n7 


(3.33) 


Recall  that  the  upper  sign  in  the  equations  corresponds  to  a  left-hand  member.  As  far  as  a  pair 
of  spiral  bevel  gears  is  concerned,  the  hands  of  the  spiral  must  be  opposite;  a  left-hand  gear 
(pinion)  and  a  right-hand  pinion  (gear)  constitute  a  pair.  Therefore,  if  we  take  the  upper  sign  in 
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Left-Hand  Gear 
Right-Hand  Pinion 


equation  (3.32),  we  must  pick  up  the  lower  sign  in  equation  (3.33).  The  relative  angular  velocity  is 


-(12)  -U)  _(2) 

U>  =  W  ~  IjJ 


(3.34) 


The  transfer  velocity  of  the  mean  contact  point  B  on  surface  Si  is 


T?<«  -(1) 

trV  =  U> 


x  B 


(3.35) 


The  transfer  velocity  of  the  mean  contact  point  B  on  surface  £2  is 


X  B 


(3.36) 


The  relative  velocity  of  the  mean  point  B  is 


V 


(13) 


^ 


(3.37) 


The  projection  of  F(12) 


on  the  vector  e2j  is 


V<;3)  =  Vll3)  ■  e, 


(3.38) 


The  projection  of  V('3> 


on  the  vector  e,  is 


Let  surfaces  Si  and  E^,  S2  and  E q,  be  equivalent,  respectively.  Equation  (A. 33)  yields 


a 


31 


(3.40) 


Using  equation  (A. 35),  we  obtain 


(12) 


,-(12) - 


ne. 


(3.41) 


Equation  (A. 36)  yields 


/V(12)\*  ,  (lAU)\  - - (»2)t-T(12)-| 

a33  =  *2,  (V>T  )  +  K2„  (V*  U  )  ~  V 


-  n  ■  (w(1)  x  trU(J)  -  w(2)  X  trU<1!)  +  (w(1))  m21  ("  X  fc2)  •  B 


(3.42) 


where  fc2  is  the  unit  vector  along  the  axis  of  rotation  of  the  gear.  It  is  represented  by  (Figure  18) 


-  sin^j 


[*2]  = 


0 


COS  /i2 


(3.43) 


In  general,  spiral  bevel  gears  are  designed  and  manufactured  with  non  con’ugate  tooth  surfaces. 
Varying  the  machine-tool  settings  it  is  possible  to  obtain  a  lead  function  of  transmission  errors,  a 
parabolic  function  with  pinion  lagging,  or  a  parabolic  function  with  gear  lagging.  Only  a  parabolic 
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function  with  gear  lagging  is  good  for  applications.  Therefore,  for  the  convex  side  of  gear  tooth  m! 
we  must  provide  a  negative  value,  and  for  the  concave  side  of  gear  tooth  m'  must  be  positive.  The 
absolute  value  of  controls  the  level  of  the  transmission  errors.  We  consider  m'  as  an  input. 

On  the  gear  surface  a  path  of  contact  that  appears  almost  straight  and  substantially  vertical 
to  the  root  may  fully  satisfy  the  operating  requirements  in  many  cases;  however,  it  should  not  be 
assumed  that  this  is  true  for  all  cases.  Sometimes  a  different  direction  or  shape  may  be  preferable 
[11].  The  tendency  of  the  direction  of  the  contact  path  may  be  determined  by  the  relative  veloc- 
ity  TV  at  the  mean  contact  point  on  the  gear  surface.  Let  v2  denote  the  angle  between  the  unit 
vector  e2i  at  the  mean  contact  point  on  the  gear  surface  and  the  direction  of  tangent  at  the  same 
point  to  the  path  of  contact.  The  relation  between  the  principal  directions  and  the  direction  of  the 
contact  path  may  be  represented  as  follows  (Figure  19): 

v2=T+  cr2G  (3.44) 


The  angle  T  is  measured  counterclockwise  from  the  root  to  the  tangent  of  the  path.  This  angle  is 
considered  as  an  input. 

3.3.2  Relations  Between  Directions  of  the  Paths  of  the  Mean  Contact  Point  in  its  Motion  over  the 
Gear  and  Pinion  Tooth  Surfaces 

Figure  20  shows  the  common  tangent  plane  to  the  gear  and  pinion  surfaces  at  the  mean  contact 
point  B.  The  notations  in  Figure  20  are  as  follows: 

e2i  and  e2[j:  emit  vectors  of  the  principal  directions  on  the  gear  surface 

V(12) :  sliding  velocity  at  point  B 

rV(l) :  velocity  vector  of  contact  point  B  in  its  motion  over  the  pinion  surface 

TV  velocity  vector  of  contact  point  B  in  its  motion  over  the  gear  surface 
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Figure  20:  Common  plane  at  the  mean  contact 
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point. 


T\  2 ,! 1  and  TV^ :  the  projections  of  vector  rF(1)  on  vectors  e2]  and  e3 

iq  and  i/2:  angles  formed  between  vectors  rF(1)  and  e2j,  rV'<2)  and  e2/,  respectively 


The  relation  between  angles  and  v2  depends  on  parameters  in  motion  and  the  principal 
curvatures  of  the  gear  tooth  surface.  For  derivations  we  will  use  the  following  equations: 


rV 


d) 


+  V™ 


(3.45) 


that  yields 


(2)  (1)  (12) 
A' 2,  —  r^2j  +  h2/ 


(3.46) 


t/(2)  i/l",)'11’1 

Ma  =  +  VJj7 


(3.47) 


From  the  geometric  relations  shown  in  Figure  20  we  have 


T/(J)  ♦ 

rVijj  =  rV2j  tan  v2 


(3.48) 


T/(I)  T/(1)  *■ 

rVin  =  rV2]  tan  iq 


(3.49) 


Substituting  equation  (3.48)  and  (3.49)  into  equation  (3.47),  and  then  substituting  equation  (3.46) 
into  (3.47),  we  obtain  an  expression  for  rV2(} '  in  terms  of  Vj^1,  V2^T2> ,  vl ,  and  v2  as  follows 


u(1)  - 

i-Vij  - 


V2 


(12) 


T r(!2) 

V2r  tan  v. 


tarn  v2  -  tan  i/, 


(3.50) 
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According  to  equation  (A. 29).  r\ ^ '  and  are  related  as  follows: 


3.3.3  Principal  Curvatures  and  Directions  of  the  Pinion  Tooth  Surface  at  the  Mean  Contact  Point 

The  derivation  of  principal  curvatures  and  directions  of  the  pinion  tooth  surface  at  the  mean 
contact  point  is  based  on  the  following  procedure. 

Step  1:  Representation  of  A  and  B  in  terms  of  coefficients  au ,  au ,  and  a22 

We  recall  that  the  lengths  of  sermaxes  of  the  contact  ellipse,  a  and  b,  are  determined  by 
parameters  A ,  B,  and  c(see  Section  A. 4). 

The  sum  of  equations  (A. 31)  and  (A. 34)  yields 
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(3.54) 


Substituting  equation  (A. 31)  by  equation  (A. 34)  we  obtain 

au  -  a22  =  k2A  -  /c1A  cos2<t12  (3.55) 

We  may  represent  parameter  A  in  equation  (A. 54)  in  terms  of  an ,  a12,  and  a22  as  follows: 

A=~\  (an  +  a22)  +  x/(a„  -  a„)2  +  4a*2  (3.56) 

Also,  the  representation  of  parameter  B  in  equation  (A. 55)  in  terms  of  an  ,  a12,  and  a22  gives 

B=-\  Kl  +  a22)  -  v^(au  -  «**)*+ 4a!2  (3-57) 

Furthermore,  equations  (3.56)  and  (3.57)  yield 

[(<*11  +  q22)  +  *Af  =  («1!  -  +  4gL  =  [(Gu  +  G22 )  +  4s]2  (3-58) 

Let  T  denote  the  smaller  absolute  value  of  A  and  B.  Therefore,  equation  (3.57)  can  be  written 
as 

[(«>.  +  G22)  +  4rf  =  (ai i  ~  <*22  )*  +4aL  (3-59) 
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Step  2:  Representation  of  coefficients  au,  a12,  and  a22  in  terms  of  rVj* 1  and  rV^J 

Using  the  first  two  equations  in  (A. 29)  and  equation  (3.54),  we  may  derive  a  system  of  three 
linear  equations  in  unknowns  au,  a12,  and  a22 


i/(1)  ,  ir(1> 

Gn  +  rU2/?  a, 


T/(‘>  .  Tr(0 

rV?!  a12  +  Tv2na22 


a m  + 


+ 


=  a, 


=  a. 


a,,  -  k 


a  y 


(3.60) 


where  ka  =  k2E  -  k1z.  Using  Cramer’s  rule  we  may  solve  equations  (3.60)  as  follows: 


a 


11 


T  r(  1 ) 

ai3  T^2t 


ric  +  ka 


(3.61) 


u('l  I  rrl‘l  Tr1'1  T  rV 1  I 

ai3  ’•U2/7  +  a23  rl2/  —  katV2j  t^2U 


,,(>) 


rr(‘) 


(■<’)  +(K' 


!") 


— „  rV',';'  +  a„  +  «,  ( w,','1)’ 
«’)’  +  «’)' 


The  third  equation  in  (A. 29)  is 


T/<>>  , 
a3i  rljj  + 


TrO>  _ 

n  ~~  a3 


Substituting  equation  (3.49)  into  equation  (3.64),  we  have 


UU)  - 

rVl,  ~ 


ai3  +  a23  tan  V\ 


(3.62) 


(3.63) 


(3.64) 


(3.65) 
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Plugging  equations  (3.49)  and  (3.65)  into  equations  (3.61 )— (3 .63) , 
results 


au  =  dl*A  +  bt 


ai2  =  d2KA  +  b2 


au  =  +  K 


where 


tan2  vi 
1  4-  tarn2  i/j 


d2 


—  tan «/, 

1  +  tan2  vx 


dz  = 


1 

1  +  tan2  ux 


2  2 
a  —a 
b,  -  — 


23  tan  ux 


1 


fl33  (1  +  taI1  t'l) 


b  _  (a22  +  an  tant/.Xa,,  +  ai3  tant/J 
a3,(l  +  tan2  */,) 


obtain  the  following 


(3.66) 


(3.67) 


(3.68) 


(3.69) 


(3.70) 


(3.71) 


(3.72) 


(3.73) 
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Step 


Step 


Step 


3:  Determination  of  ka 

Equations  (3.59)  and  (3.66)— (3.71)  lead  to 

47*  -  (ij  +  fcj)l  (1  +  tan5  f,) 

A  2T(1  +  tan2  ux)  +  6,(1  -  tan2  ux)  +  2 b2  taniq 


Since  ka  =  k2E  -  k1e,  equation  (3.74)  becomes 

[4T;  -  (&;  +  Q]  (1  +  tan2  „, ) 

IS  2E  +  2T(1  +  tan2  vx)  +  6l(l  -  tan2  vx)  +  2 b2  taniq 


(3.75) 


Note  that 


(3.76) 


where  t  is  the  semimajor  axis  of  the  contact  ellipse.  This  is  an  input  datum.  In  general,  it 
is  about  one  sixth  of  the  width  of  the  gear  tooth.  Gleason  Works  suggests  that  the  elastic 
approach  e  is  0.00025  inches  [11]. 

4:  Determination  of  au  ,  a12,  and  a22 

Substituting  equation  (3.74)  into  equations  (3.66)-(3.68),  we  obtain  an ,  aI2,  and  a22. 

5:  Determination  of  al2 
Using  equations  (A. 32)  and  (3.55),  we  obtain 

_  2a.j 

tan2<r.,  =  - 


(3.77) 
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It  provides  two  solutions  for  al2 ,  and  we  will  choose  the  smaller  value.  Rotating  unit  vector  e2] 
about  the  unit  normal  vector  n  by  — <r12,  we  may  obtain  unit  vector  elj.  Rotating  unit 
vector  e1]  about  the  unit  normal  vector  n  by  tt/2,  we  may  obtain  unit  vector  e2n . 

Step  6:  Determination  of  /c1A 

Using  equation  (A. 32),  we  obtain 


AC 


1  A 


^Qi; 

sin  2  <r12 


(3.78) 


STEP  7:  Determination  of  ac,  and  ac, 

1  i  1n 

The  principal  curvatures  of  the  pinion  surface  at  the  mean  contact  point  B  are  determined 
by 


_  K1E  "b  K1A 

a ,  — 

11  2 


K  — 


(3.79) 


3. 3. 4  First  Order  Characteristics 

Four  surfaces,  the  gear  head-cutter  surface  Eg,  the  gear  surface  E2,  the  pinion  head-cutter 
surface  Ef>,  and  the  pinion  surface  Ei,  are  in  tangency  simultaneously  at  the  mean  contact  point  B. 
It  implies  that  these  four  surfaces  have  a  common  normal  at  the  mean  contact  point.  We  can  use 
this  information  to  determine  pinion  blade  angle  ipp  and  parameter  rp . 

The  representation  of  the  unit  normal  to  the  pinion  head-cutter  surface  in  the  5/  coordinate 
system  is 
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[«/]  =  [-^/pf^p  piP'lm  IP)][L  m  (p)c(p)][nc(P,] 


'  -1 

0 

0  ' 

cos  61 

0 

—  sin  61 

0 

-1 

0 

0 

1 

0 

0 

0 

1  _ 

sin  <5, 

0 

cos  <5, 

(3.80) 


1  0  0 
0  cos  4>P  ±sin(f>p 
0  ^  sin  <f>p  cos  4>p 


1  0  0 
0  cos  qp  ^  sin  qp 
|_  0  ±  sin  qp  cos  qp 


n  j  pi 

cx 

n  (P) 

Cy 

J 

njr) 

z 

Let  us  consider  the  straight-edged  blade  first.  Equation  (2.2)  describes  the  unit  normal  in 
the  Sc  coordinate  system.  Before  plugging  equation  (2.2)  into  equation  (3.80),  we  must  investigate 
the  sense  of  equation  (2.2).  Prom  Figure  18  we  know  we  must  choose  the  minus  sign  for  the  unit 
normal.  Therefore,  equations  (2.2)  and  (3.80)  yield  (subscript  ‘f’  is  dropped) 


TLX 

cos  i sin  xpp  -  sin  <5,  cos  rpp  cos  tp 

ny 

- 

cos  ipp  sin  Tp 

.  nz  . 

-  sin  S ,  sin  ipp  -  cos  cos  xl>p  cos  rp 

(3.81) 


Multiplying  nx  by  cos  ,  nz  by  -  sin  <5, ,  and  then  considering  their  sum,  we  obtain 


nx  cos  6 j  -  nz  sin  Sj  -  sin  t pp 
Obviously,  the  pinion  blade  angle  is 

{arcsin(nxcos^1  -  nt  sin  6,)  Gear  Concave  f  ide 
(ir  -  ipp)  Gear  Convex  Side 


(3.82) 


(3.83) 
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The  i  component  in  equation  (3.81)  may  be  rewritten  as 


nx  —  cos  6.  sin  xpp 

cos  Tp  =  - — - - — 

-  sin  O;  cos  Tpp 


The  y  component  in  equation  (3.81)  may  be  rewritten  as 


sin  Tp  = 


n„ 


cos  rp. 


The  parameter  rp  may  be  obtained  by 


„  sin  r 

rp  =  2  arc  tan - 

1  +  COS  T 


(3.84) 


(3.85) 


(3.86) 


Let  us  now  consider  the  curve-edged  blade.  Equations  (2.16)  and  (3.80)  yield 


Tlx 

cos  6 j  cos  A p  -  sin  sin  \p  cos  rp 

Tly 

- 

sin  Ap  sin  rp 

.  U * 

-  sin  cos  Ap  -  cos  5,  sin  Ap  cos  rp 

(3.87) 


Multiplying  nx  by  cos  ^  ,  nz  by  -  sin  ,  and  then  considering  their  sum,  we  obtain 


cos  A p  =  nx  cos  -  nt  sin  St 


(3.88) 
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The  quadrant  in  which  the  parameter  \p  locates  may  be  determined  by  the  discussion  stated  in 
Section  2.2. 

The  blade  angle  is  the  angle  formed  by  a  line  tangent  to  the  blade  surface  at  the  mean  contact 
point  and  a  line  perpendicular  to  the  cutter  head  face.  Thus  we  have 

5/2x  -  Ap  pinion  concave  side,  blade  concave  down; 

3/2x  -  Ap  pinion  concave  side,  blade  concave  up; 

■4>P  -  < 

1/2tt  -  Ap  pinion  convex  side,  blade  concave  down; 

3/2x  -  Ap  pinion  convex  side,  blade  concave  up. 

Rewriting  the  x  component  in  equation  (3.87),  we  have 

nx  -  cos  6.  cos  A 

cos  Tp  =  - :  ,  , . 

-  sin  ol  s m  Ap 

The  y  component  in  equation  (3.87)  may  be  rewritten  as 

sinr  =  Uy  -  (3.90) 

sinAp 


(3.89) 


Substituting  equations  (3.89)  and  (3.90)  into  equations  (3.86),  we  may  obtain  tp. 

3.3.5  Principal  Curvatures  and  Directions  of  the  Pinion  Cutter  Surface  at  the  Mean  Contact 
Point 

The  first  principal  direction  of  the  pinion  cutter  surface  at  the  mean  contact  point  may  be 
represented  in  the  Sp  coordinate  system  as  follows: 


f ePI}]  -  \Li^][L^m^][Lm^^]\ePIe\ 


(3.91) 


Using  equation  (2.9)  and  (3.91),  we  may  obtain  the  first  principal  direction  for  the  straight-edged 
cutter.  It  is 


=  ± 


sin  <5,  sin  rp 

COS  Tp 

cos  8l  sin  rp 


(3.92) 


Using  equations  (2.17)  and  (3.91),  we  may  obtain  the  first  principal  direction  for  the  curve-edged 
cutter.  The  result  is  the  same  as  for  the  straight-edged  cutter,  that  is  described  in  equation  (3.92). 
In  above  equation,  there  are  two  senses.  Only  the  direction  which  forms  the  smaller  angle  with 
the  gear  cutter  first  principal  direction  can  be  chosen.  From  the  first  order  information  we  have 
already  determined  the  parameter  rp;  therefore,  the  first  principal  direction  of  the  pinion  cutter 
is  also  determined.  The  unit  vector  of  the  second  principal  direction  of  the  pinion  cutter  surface 
may  be  obtained  by  rotating  the  unit  vector  of  the  first  principal  direction  of  the  pinion  cutter 
surface,  ep  ,  about  the  common  normal,  n,  by  an  angle  tt/2. 

We  use  the  concept  discussed  in  Section  A. 2  to  derive  the  principal  curvatures  of  the  pinion 
cutter  surface  at  the  mean  contact  point.  We  recall  that  surfaces  Ep  and  Ei  are  in  line  contact  in 
the  process  of  generation.  Hence,  using  equation  (A. 37),  we  obtain 


ana22  -  a12 


(3.93) 


Substituting  equations(A.31),  (A. 32),  and  (A. 34)  into  (3.93),  we  obtain  the  first  principal  curvature 
of  the  pinion  cutter 
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(3.94) 


*p, 


K 


Pn 


K 


pn 


cos 2  Op  1  +  kIi7  sin'  api )  -  k1jk1ii 
-  k1;  Sin2  <TPI  -  Kln  cos2  api 


The  second  curvature  of  the  pinion  cutter  is  zero  for  a  straight-edged  cutter  (see  equation  (2.12)) 
and  Tl/f?  for  a  curve-edged  cutter  (see  equation  (2.20)).  Since  the  principal  curvatures  and  di¬ 
rections  of  the  pinion  cutter  surface  at  the  mean  contact  point  have  been  determined,  some  data 
relating  to  pinion  machine-tool  settings  may  be  obtained  without  any  difficulty. 

Let  us  consider  a  straight-edged  cutter  first.  Rewriting  equation  (2.10),  we  may  obtain 


u 


p  ~ 


1 

kPj  tan  ip 


(3.95) 


We  choose  only  the  positive  sign  in  equation  (2.10)  since  we  have  specified  the  direction  of  the  unit 
normal  n.  We  may  represent  the  mean  contact  point  B  in  the  Sm(p)  coordinate  system  as  follows: 


=  p)plp)  \Bf\ 


(3.96) 


where 


(P)p(P) 


cos  6,  0  sin  6,  0 

0  1  0  T Em 

-  sin  6  j  0  cos  Sx  -  Lm 

0  0  0  1 


(3.97) 


and 
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-10  0  0 

0-100 


0  0  10 


0  0  0  1 


(3.98) 


Considering  only  the  x  component  of  the  above  equation,  we  obtain 


Bmx  =  ~B}i  cos  (5,  +  Bf2  sin  5, 


(3.99) 


Using  equation  (2.38),  we  obtain  rp  as  follows: 


tp  =  (Rmz  +  Up  cos  4>p )  tan  tpp 


(3.100) 


Let  us  now  consider  the  curve-edged  cutter.  Using  equation  (2.18),  we  obtain 


sinAc  „  .  , 

RCl  -  ± - R  sinA, 


kc 


(3.101) 


The  parameter  RCx  may  be  obtained  by  equations  (2.40)  and  (3.99).  That  is 


Rct  —  Bmx  R  COS  \p 


(3.102) 


The  cutter  tip  radius  may  be  represented  by 


r p  =  RCx  ±  y/\R2  -  <| 


(3.103) 
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3.4  Pinion  Machine-Tool  Settings 

There  are  five  machine-tool  settings  mPl,  £m,  Lm ,  sp,  and  qp  to  be  determined.  The  key  to 
the  solution  of  this  problem  is  the  determination  of  the  cutting  ratio  mpi .  Let  us  consider  this 
problem  first. 

3.4.1  Determination  of  Pinion  Cutting  Ratio 

We  will  use  the  relations  between  principal  curvatures  and  directions  for  the  pinion  cutter 
surface  and  the  pinion  surface  to  derive  the  pinion  cutting  ratio  mP1 .  To  apply  the  equations 
described  in  Section  A. 2,  we  consider  that  surfaces  Ei  and  Sp  are  equivalent,  and  that  surfaces  E p 
and  Eg  are  equivalent.  Also,  the  following  data  are  considered  as  given:  (1)  the  principal  curvatures 
of  the  pinion  surface  at  the  mean  contact  point,  and  (2)  the  principal  directions  of  the 
pinion  surface  at  the  mean  contact  point,  et  and  eln ;  (3)  the  coordinates  of  the  mean  contact 
point;  (4)  the  unit  normal  at  the  mean  contact  point;  (5)  the  coefficients  au ,  a12,  and  a22. 

The  procedure  to  determine  mpi  is  as  follows: 

„  _  .  _(ip) 

Step  1:  Representation  of  u> 

The  angular  velocity  of  the  pinion  is  represented  by 

sinpj 

u"  =  ±w(I)  0  (3.104) 

cos  p, 

The  angular  velocity  of  the  pinion  cutter  is  represented  by 
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Step 


Step 


— (  j°)  .  (i) 

uj  =  ±mpiu> 


cos  6 , 


L  -sm6,  J 


(3.105) 


( 1  P) 

Therefore,  we  may  obtain  the  relative  angular  velocity  u  as  follows: 


-(»*■)  ,  (i) 

w  =  in) 


sin  p,  -  mP]  cos  ] 
0 

[_  cos  fi1  +  mpi  sin  6,  j 


(3.106) 


( 1  P) 

2:  Representation  of  [  uj  nepJ 
The  scalar  [  uj  nePf  j  is  represented  by 

•s/ij  +  mpi  sin  6,  ) 
nz 

€f,Iz 

(3.107) 

nyeptl ) sm  mpi 
nyepIx  ) cos  Mi  ]  }  ^(1) 

3:  Representation  of  [  u;(1P)nep^] 

The  scalar  [  d3(1P,neP;J  is  represented  by 


-<ip) 

u>  ne. 


=  UJ 


(1) 


±(sin  -  mpi  cos  61 )  0  ±(co 


n,. 


±  {  [(nzeP/y  ~  nyePl)  cos  <5,  +  (n«ep^  - 

+  (nvePr  ~n*ep,  )sinM<  +{nxep  - 

l  1y  Iy 

(  ,  N  (D 

(cumpi  +  cia)w 
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±(sin -  mpi  cos  6, )  0  ±(cos  jjLx  +  mpi  sin 6l ) 


(3.108) 


=  ±  [(.ny€pII:  ~n^epI1  ) sin  hi  +  (n*eP„  ~  nyepIIz  ) cos  h,  . 


Step  4:  Representation  of  1' 

The  velocity  trrm  may  be  obtained  by 


— t 1|  £ 

u)  x  B 


-By  COS  /U] 

=  ±a>(1)  Bxcos^,  -  i^sin/u, 

By  sin  tt , 


(3.109) 


The  velocity  ’  may  be  obtained  by 


-(Fi  □  ,  xr~/- ,  ~ 
x  B  +  OfO-m  x  w 


(£m  ±  fly)  sin 6, 

=  u/<1>mpi  ±(Lm  -  Bx  sin  <5,  -  By  cos  d, ) 
{Em  ±  By)cos6l 


(3.110) 


The  sliding  velocity  V  is  described  by 
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I 


\ 


r-iip) 


v{l  v 

tr'  ~  tr> 

^By  cos/ij  -  m P1  ( Em  ±  By)  sin  <5, 

111  j  ±(BX  cos  /ij  -  B,  sin/q )  +  mpi  [£m  -  (5X  sin  6,  +  Bz  cos  61 )j 
ifiysin/i,  -  Tnpl(Em  ±  Bv)cosS1 


Step  5:  Representation  of Tp)P|  and  Up)fP) 

Using  equations  (A. 33)  and  (3.107),  we  have 


=  -KpVp'P'  -  (c„mPI  +  c12)w 


U) 


Equations  (A. 35)  and  (3.108)  yield 


a,,  =  -k, 


U<1P'  -  c,„u> 


0) 


From  equation  (A. 37)  we  have 

au  a23  ~  ai2  ai3  =  0 


Using  equations  (3  112)  -  (3.114),  we  obtain 


ai2KPjVpj  au  kph  ^pii  ~  [  ai2cnmpi  U(ancJ2  QjjCjj)];*’ 


Moreover,  we  know  that 


(3.111) 


(3.112) 


(3.113) 


(3.114) 


(3.115) 
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(3.116) 


Step 


f,1P)  =  lp‘P)e'„  +  V},lP)ez 


o,  Cp/  T  ypn  z Pn 


Considering  only  the  x  conaponent  in  equations  (3.111)  and  (3.116),  we  obtain 


vpf)eplx  +  VP?epUt  ~  [T-Byc os/x,  -  mpl{Em  ±  By)sin61]u''  (3.117) 


(i) 


Considering  only  the  c  component  in  equations  (3.111)  and  (3.116),  we  receive 


['p)P)£pJ:  +  Vp1P€ptj.  =  [±Bv  sinM,  -  rnPi{Ern  ±  By)  cos  5,]  w'1’  (3.118) 


Multiplying  equation  (3.117)  by  cos  and  equation  (3.118)  by  sin  6, ,  and  adding  the  resulting 
equations,  we  obtain 


T/UP) 

1  pn 


By  cor  7, 


e„  cos  S,  -  ep  sin  5, 

pIIx  1  piu  1 


(i)  .  (i) 


(3.119) 


Substituting  equation  (3.119)  into  equation  (3.117),  we  obtain 


V'UP)  _ 
V  p.  — 


c  11 


a\\KP„t\  "h  au  C22  ai2CU  \  (1)  /  |  ,  ,  Pi 

mPl  +  - 11 - : -  W  =(tlmP1+«a)ta> 

ai2KPj  ) 


(3.120) 


”*  (  1  P) 

6:  Representation  of  V 

The  matrix  form  of  equation  (3.116)  may  be  represented  by 
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V{iP)F  4.  V{lP)p 
1  pi  eP!t  +  Vpn  ePUt 


F(1P)f  4-  V{1F)p 
^P^  eP  +  e 


(3.121) 


V(1P)F  4VilP)P 
Vpi  £p,z  f  Kpn  ePIIz 


Substituting  equations  (3.119)  and  (3.120)  into  equation  (3.121),  we  have 


(tjTTipj  +  t2)ep^  -\-ttePn* 


<J  (^i  mPi  "b  t2  )Cp 


(*.mPi  +  ti)ePJi  +  UeP„z 


"n'Xp,  +  u.2 


o>  u21  mpi  +  u22 


U3lmP!  +  U32 


(3.122) 


Step  7:  Representation  of  [  nu;<lP)F(1P>] 

The  scalar  [  n£(1P)VilP>]  may  be  represented  by 


Tiu/  V 


where 


u;  ±(sin/x1  +  mP1  cos  6t ) 


Uumpi  + 


0  ±(cos/Xj  +  mpi  sintfj 

U21  mp\  “I"  U22  U31  mpi  "b  U32 


mP1  +  U2mP!  + 


(3.123) 


v1  =  ±  [(«„  sin  -  tijj  cos  )ny  -  (nz  cos  5,  +  nx  sin  <5,  )u21  ] 


(3.124) 


T  i(u21  cos  p2  +  tz22  sin  5l  )nx  -  (u21  sin  p,  -  u22  cos  <5,  )n2 
-  (tzn  cos/Zj  +  tzl2  sin  <5,  +  u32  cos  <5,  -  un  sin/zjriy] 


(3.125) 


v3  =  -F  [(u22n^  cos /i,  -(tzl2cos/z,  -  u32  sin  /z,  )ny  -  u22nt  sin  /z,] 


(3.126) 


o  n  T1  .  r  -  /-.(D  fr(P)  -(P)  w  T-(>)x 

Step  8:  Representation  of  n  ■  (u;  x  trV  -  u>  X  trV  ) 
The  velocity  trFIP)  may  be  described  by 


7(P)  7d)  7<iP) 

trl  =  trV  ~  V 


(3.127) 


Substituting  equations  (3.109)  and  (3.122)  into  equation  (3.127),  we  have 


,-(P)  id 

tr\  —  u ; 


- uumPl  T  By  cos /i1  -  ul2 
-u21  mpi  q:  Bz  sin  /z2  ±  cos  /z2  -  u22 
-u31mpi  ±  sin/x,  -  u32 


(3.128) 


Vector  (u>n)  X'  trVr'"’)  is  represented  by 


r-r(P) 


-(1) 

U.1  X 


±[u22mP2  -  {Bt  sinpj  -  Bxc osp2  ±  u22)]cosp, 

(Tun  cos  /z2  ±  tz32  sin  p,  )mpi  -  T  u22  cos  p,  ±  tz32  sinp, 
q:[iz2lmpi  -  (J9Z  sin  -  Bx  cos/z,  ±  tz22)]sin/z1 

(3.129) 
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Vector  (JIP>  x  trlr<1))  is  represented  by 

—(Bz  sinji,  -  Bx  cos  /j.l)mpi  sin  5, 
-Bympi  sin  7! 

-(■Bjsin/ij  -  Bx  cos  /Uj  )mpi  cos  6l 
Subtracting  equation  (3.130)  from  equation  (3.129),  we  obtain 


^nmpi  +  ^12 

-(»)  ,7<P)  -(p)  ,7-(» 

uJ  X  —  aJ  X  (rV  — 

on2 

) 

^21  171  PI  "b  ^22 

.  ftjj^Pi  +  K  . 

where 


hu  =  ±u21  cos  jq  -  (Bx  cos/q  -  Bz  sin/q  )  sini5j 


/q2  =  (Bz  sin  jj.x  -  Bx  cos  /q  ±  u22 )  cos^q 


h2I  =  5y  sin  7,  +  un  cos  /q  ±  u31  sin  /q 


K2  =  -(5w±u„cos|i1  t  UjjSin/iJ 


h31  =  :fu21  sin/q  -  (5j.  cos/q  -  iJj  sin  jq  )  cos  6, 


/i32  =  -(5*  sin/q  -  iT,;  cos/q  ±  u22)sin  tq 


_ip)  ,-.0) 

u;  x  trl 


(» ! 


U,' 


(3.130) 


(3.131) 


(3.132) 


(3.133) 


(3.134) 


(3.135) 


(3.136) 


(3.137) 
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Step 


Therefore,  we  may  obtain  n  •  (uJ(11  x  trU(PI  -  <Z'tP)  x  frV(I) )  as  follows: 


/  -(1)  -(P)  ,  (1)12 

n  ■  x  frV  -  w  x  trU  j  =  (/jmp]  +  /2)  |u>  (3.138) 


where 


A  =  +  ny/i21  +  n2hil  (3.139) 


/s  =  nxh12  +  nyh22  +  n*/i32  (3.140) 


9:  Representation  of  mpi 

Using  equations  (A. 33),  (3.107),  and  (3.120),  the  equation  for  an  may  be  represented  by 


~  (KP;  A  d-  C,2  )  U) 


(3.141) 


Using  equations  (A. 35),  (3.108),  and  (3.119),  a23  may  be  described  by 


(KPlj  U  d“  C22  ) 


u> 


(3.142) 


Using  equations  (A. 36),  (3.119),  (3.120),  (3.123),  and  (3.138),  the  expression  for  a33  may  be 
represented  by 
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Q33  —  (^KP;t  1^2  V2  +  (KPj^2  +  KPn^*  V*  /*) 


(1) 


u> 


(3.143) 


From  equation  (A. 39)  we  know  that 


ai2a33  ai3a23  —  0 


(3.144) 


Equations  (3.141)— (3- 144 )  yield 


i(KP,t 2  +  KPn  U 


ft)  -  («p,*a  +  C12)(«P„<4  +  e22) 


o.12(2k  p^t  xt2  v2  /,) 


(3.145) 


3.4.2  Determination  of  parameters  i?m  and  Zm 


Parameters  £m  and  Im  of  the  pinion  machine-tool  settings  have  been  shown  in  Figures  12 
and  13.  Since  the  pinion  cutting  ratio  mpi  has  been  determined,  it  is  very  easy  to  find  these  two 
parameters.  We  may  determine  vector  V  from  equation  (3.122).  Applying  equation  (3.111), 
then,  we  obtain 


Em  — 


F By  cos  nl  -  V3 
mPi  sin  5, 


(ip) 


=F  By 


(3.146) 


Lm  — 


By  cos  /x,  -  Bt  sin  fi1  F  V. 


(ip) 


+  Bx  sin  6 ,  +  Bz  cos  6 , 


(3.147) 
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3.4.3  Determination  of  Pinion  Radial  Setting  and  Cradle  Angle 

The  determination  of  the  pinion  radial  setting  and  the  cradle  angle  is  based  on  the  consideration 
that  the  position  vectors  of  the  pinion  tooth  surface  and  head-cutter  surface  must  coincide  at  the 
mean  contact  point.  Equation  (3.96)  describes  the  mean  contact  point  B  in  the  Srn(P)  coordinate 
system.  Considering  the  y  and  2  components  in  equation  (3.96),  we  obtain 


5m,e,  =  -  R/j,  -1-  Em  (3.148) 

Bm(P)  =  B}xsm61  +  Bjtcos6l  -  Lm  (3.149) 


For  a  straight-edged  cutter,  by  using  equations  (2.38),  (3.148),  and  (3.149),  we  have 


spsingp  =  ±Bfv  +  Em  ±  up  sintl/p  sin  rp  (3.150) 


sp  cos  qp  =  Bjx  sin  61  +  Bjz  cos  6t  -  Lm  -•  up  sin  ipp  cos  rp  (3.151) 


For  a  curved-edged  cutter,  by  using  equations  (2.40),  (3.148),  and  (3.149),  we  have 


sp  sin  qp  -  ±B}y  +  Em  ±  C°S  —  Sm  Tp  (3.152) 

*pj 


COS  A  COS  T 

sp  cos  qp  =  Bjx  sin  <5,  +  Bjt  cos  5,  -  Lm  ±  - - - -  (3.153) 

kp, 
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CHAPTER  4 

CONCLUSION 

As  it  was  mentioned  in  Chapter  1,  the  reduction  of  transmission  errors  of  spiral  bevel  gears 
is  a  difficult  problem.  Although  it  is  possible  to  generate  conjugate  spiral  bevel  gears,  with  zero 
transmission  errors,  we  have  to  take  into  account  that  the  gear  are  very  sensitive  to  misalignment. 
Using  the  TCA  programs  we  have  found  that  even  a  small  misalignment  of  gears  results  in  discon¬ 
tinuity  of  functions  of  transmission  errors  that  is  accompanied  with  the  jump  of  the  function  at  the 
transfer  points.  Thus  the  idea  of  gears  with  non-zero  transmission  has  to  be  complemented  with 
the  modification  of  the  process  for  their  generation  that  allows  to  reduce  the  sensitivity  of  gears  to 
their  misalignment. 

From  the  result  of  computation  by  TCA  programs  we  know  that  gear  misalignment  causes 
a  linear  or  almost  linear  function  of  transmission  errors.  Litvin  has  discovered  that  a  sum  of  a 
parabolic  function  and  a  linear  function  represents  again  a  parabolic  function  that  is  just  translated 
with  respect  to  the  initial  parabolic  function.  Then,  if  a  parabolic  function  is  predesigned,  it 
becomes  possible  to  keep  the  same  level  of  transmission  errors  for  aligned  as  well  as  misaligned 
gears . 

Gear  misalignment  is  also  accompanied  with  the  shift  of  *he  bearing  contact  to  the  edge  of  gear 
tooth  surface.  To  keep  the  shift  of  bearing  contact  in  reasonable  limits,  it  is  necessary  to  limit  the 
tolerances  for  gear  misalignment  and  the  respective  value  of  predesigned  parabolic  function. 

In  Chapter  2  the  basic  concept  and  methods  of  Gleason  systems  have  been  presented.  Equations 
that  describe  the  surface  of  the  head  cutter,  which  is  either  a  cone  surface  or  a  surface  of  revolution, 
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have  been  derived.  These  equations  covers  the  determination  of  position  vectors,  surface  unit  normal 
vectors,  principal  curvatures,  and  principal  directions. 

Mathematical  models  for  geometry  of  spiral  bevel  gears  have  been  also  proposed  in  Chapter  2. 
The  gear  surface  is  represented  as  an  envelope  of  the  family  of  the  tool  surfaces.  The  tool  surface 
and  being  generated  gear  surface  are  considered  conjugate  ones.  Based  on  the  geometric  properties 
of  conjugate  surfaces,  the  equation  of  meshing  has  been  derived. 

The  determination  of  pinion  machine-tool  settings  is  based  on  the  method  of  local  synthesis. 
The  first  derivative  of  gear  ratio,  the  tangent  to  the  contact  path,  and  the  dimensions  of  the  contact 
ellipse  of  the  gear  surface  at  the  mean  contact  point  are  considered  as  input  to  local  synthesis.  Thus 
the  level  of  transmission  errors  and  the  bearing  contact  are  under  control.  It  provides  the  optimal 
conditions  of  meshing  for  the  gear  surfaces  being  in  meshing  at,  and  within  the  neighborhood  of, 
the  mean  contact  point. 

Equations  that  determine  the  principal  curvatures  and  directions  at  the  mean  contact  point  on 
the  pinion  surface  have  been  derived.  They  are  functions  of  the  principal  curvatures  and  directions 
at  the  mean  contact  point  on  the  gear  surface  and  the  input  of  local  synthesis.  Based  on  the 
information  on  the  characteristics  of  the  pinion  surface  of  the  zero  (position),  first  (normal),  and 
second  (principal  curvatures  and  directions)  orders,  equations  that  determine  the  pinion  basic 
machine-tool  settings  have  been  derived. 

In  Appendix  A  the  basic  concept  and  methods  of  theory  of  gearing  that  have  been  used  in  this 
work  have  been  presented.  Numerical  examples  are  given  in  Appendix  B.  These  examples  include 
determination  of  machine-tool  settings  and  results  of  computation  by  TCA  programs.  Computer 
programs  have  been  developed,  that  include  machine-tool  settings  and  TCA.  They  ar°  h'+0d  in 
Appendix  C.  The  computer  programs  cover  determination  of  machine-tool  settings  for  straight- 
lined  as  well  as  curved  blades.  The  developed  TCA  programs  allow  to  simulate  the  meshing  of 
aligned  and  misaligned  gears. 
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APPENDIX  A 

GEOMETRY  AND  KINEMATICS  OF  GEARS  IN  THREE  DIMENSIONS 


A.l  Concept  of  Surfaces1 

Most  of  the  ideas  underlying  gear  theory  are  based  on  strict  definitions  proposed  in  the  field 
of  differential  geometry.  In  what  follows  we  introduce  the  concept  that  is  applied  in  this  report. 

All  in  all  we  require  that  our  functions  can  be  differentiated  at  least  once  and  usually  more  times. 
Accordingly  we  say  a  function  F  belongs  to  class  Cn  on  an  interval  I  if  the  nth  order  derivative 
of  F  exists  and  is  contmuous  on  I.  In  addition,  we  denote  the  class  of  continuous  functions  by  C°. 

A  parametric  representation  of  a  surface  E  is  a  continuous  mapping  of  an  open  rectangle  SR, 
given  in  the  plane  P  of  the  parameters  (u,v),  onto  a  three-dimensional  space  E 3  such  that 

B(u,v)  €  C°,  (u,u)  e  3R  (A.l) 


where  B  is  the  position  vector  which  determines  the  point  surface  (Figure  21).  The  vector  func¬ 
tion  B(u,v )  may  be  represented  by 


B(u,v)  =  Bx(u,v)T+  By(u,v)j+  Bt(u,v)k 


(A.2) 


i 


Adopted  from  the  manuscript  of  the  book  “Theory  of  Gearing”  by  Litvin,  in  press  by  NASA. 
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where  f,  j,  and  k  are  unit  vectors  of  the  coordinate  axes. 


We  call  a  surface  point  B(u,  r>)  a  regular  point  if  at  this  point 


By  x  Bv  #  0 


(A.3) 


where 

-  dB  -  dB 
Bu  -  Bv  -  — 

au  a  v 

A  surface  is  called  a  regular  one  if  each  point  on  it  is  a  regular  point. 

A  regular  surface  has  the  following  properties: 

•  It  is  at  least  class  of  Cy . 

•  There  is  a  one-to-one  correspondence  between  the  points  of  plane  P  (of  the  parameters  (u,  v )) 
and  the  three-dimensional  space  E3. 

•  A  regular  surface  has  a  tangent  plane  at  all  its  points. 

The  normal  vector  N  to  the  surface  at  a  point  B  is 

N  = 

and  its  unit  normal  is  represented  by 

__  N 
n~  \N\ 


Bu  X  By 


By  X  By 
By  X  By 


(A.4) 


(A.5) 
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The  direction  of  the  surface  normal  N  and  unit  normal  n,  with  respect  to  the  surface,  depends  on 
the  order  of  the  factors  of  the  cross  product  (equation  (A. 4)).  By  changing  the  order  of  the  factors, 
we  may  change  the  direction  of  the  normal  to  the  opposite  direction. 

A  surface  is  uniquely  determined  by  certain  local  invariant  quantities  called  the  first  and  second 
fundamental  forms.  The  first  fundamental  form  of  a  surface  is  defined  by 

I  =  dB  ■  dB  =  (Bu  du  +  Bv  dv)  ■  (Bu  du  +  Bv  dv) 

=  (BuBu)du  +  2{Bu  Bv)du  dv  +{BV  ■  Bv)dv  (A.6) 

=  E  du  -f  2  F  du  dv  +  G  dv 


where  we  set 


E  —  Bu  ■  Bu,  F  =  Bu  ■  Bv,  G  —  Bv  ■  Bv 


The  second  fundamental  form  is 

II  =  -  dB  ■  dn  =  ~(BU  du  +  Bv  dv)  ■  (nudu  +  nv  dv) 

=  ~{BU  ■  nu)du  -  ( Bu  ■  nv  +  Bv  ■  nu)dudv  -  (Bv  ■  nv)dv 2  (A. 7) 

=  L  du  +  2  M  dudv  +  N  dv 2 

where  we  have 

L  =  -Bu  ■  nu,  M  =  ~^(BU  nv  +  Bv  •  nu),  N  -  -Bv  ■  nv 

The  second  fundamental  form  exists  only  if  the  surface  is  at  least  class  C2.  In  this  report  we  will 
consider  all  the  gear  tooth  surfaces  as  regular  surfaces  with  class  at  least  C2. 
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On  a  given  surface  various  curves  pass  through  a  common  point  B  and  have  the  same  unit 
tangent  vector  f  at  B  (Figure  22).  One  of  these  curves  (designated  by  Lo)  is  located  on  the 
plane  P.  which  is  drawn  through  the  unit  tangent  vector  t  and  the  surface  unit  normal  n.  The 
curvature  of  curve  Lo  is  called  normal  curvature.  Since  the  unit  tangent  vector  t  of  the  surface 
may  have  different  directions  on  the  surface,  for  each  direction  there  is  a  normal  curvature.  The 
normal  curvature  is  a  function  of  the  first  and  second  fundamental  forms: 


n  _  L  du  +  2  M  du  dv  +  N  dv 
I  E  du  +  2  F  du  dv  +  G  dv2 


(A.8) 


The  extreme  value  of  the  normal  curvature  taken  at  a  certain  point  of  the  surface  are  called  the 
principal  curvatures.  The  directions  of  the  normal  sections  of  the  surface  with  the  extreme  normal 
curvatures  are  called  the  principal  directions.  Equation  (A.8)  yields 


T  —  kti(E  du  +  2F  du  dv  +  G  dv2 )  -  (L  du*  +  2M  dudv  ■+ N  dv2 )  =  0  (A. 9) 


For  a  given  point  on  the  surface,  E,  F,  G,  L,  M ,  and  N  are  constant.  The  normal  curvature  Kn 
is  a  function  of  the  ratio  du  and  dv.  Therefore,  equation  (A. 9)  is  an  identity  of  du  and  dv.  From 
calculus,  the  partial  derivative 


dT 

d  du 


=  0 


(A.10) 


Substituting  equation  (A. 9)  into  equation  (A. 10),  it  yields 

Kn(Edu  +  F  dv)  -  (L  du  +  M  dv)  +  Edu  +2 F  dudv  +  G  dv  )  =  0  ( A.  1 1 ) 
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Also,  the  partial  derivative 


dT 

d  dv 


=  0 


(A.12) 


Substituting  equation  (A. 9)  into  equation  (A.12),  it  yields 

n  - 

k n(F  du-\-  G  dv)  -  ( M  du  +  N  dv)  -f  -J—-E  du  +  2 F  du  dv  +  G  dv  —  0  (A. 13) 

a  dv 


Recall  that  the  principal  curvatures  are  the  extreme  values  of  the  normal  curvature  nn.  Thus 
dnn/ddu  =  0  and  dnn/d  dv  =  0  if  nn  is  the  principal  curvature.  Equations  (A. 11)  and  (A. 13)  yield 


(ktiE  -  L)du+  {nnF-  M)dv  =  0  (A. 14) 


and 

{KnF  -  M)du+ {nnG  -  N)dv  =  0,  (A. 15) 


respectively.  Solving  the  homogeneous  system  of  equation  (A. 14)  and  (A. 15)  by  eliminating  du 
and  dv,  we  obtain 


(EG  -  F2)Kn  -  ( EN  -  2 FM  +  GL)ku  +  (LN  -  M*)  =  0  (A.16) 


The  discriminant  of  equation  (A.16)  is 
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This  means  that  the  principal  curvature  is  the  same  as  the  normal  curvature  at  any  direction. 
Thus  each  direction  may  be  considered  as  a  principal  direction.  Any  point  which  is  on  a  plane  or 
at  which  a  surface  turns  into  a  plane2  is  an  umbilical  point.  Any  point  on  a  spherical  surface3  is 
also  an  umbilical  point. 

Two  distinct  principal  curvatures  can  always  be  obtained  at  a  nonumbilical  point.  These  two 

curvatures  correspond  to  two  distinct  principal  directions.  By  canceling  Kn  from  equations  (A. 14) 

JThe  normal  curvature  on  each  direction  is  zero. 

3The  normal  curvature  on  each  direction  is  the  inverse  of  the  radius. 
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and  (A. 15),  we  have  the  following  equation  for  principal  directions 


(EM  -  FL)du  ~  ( GL  -  EN)dudv  +  (FN  -  GM)dv  =  0  (A.21) 


The  discriminant  of  the  above  equation  is  identical  to  equation  (A. 17).  At  a  nonumbilical  point 
equation  (A.21)  can  be  represented  as  a  product  of  two  co-factors  ( Atdu  +  B{dv)(i  =  1,2)  since 
the  discriminant  is  larger  than  zero.  This  means  that  it  represents  two  perpendicular  directions. 
Thus  we  may  conclude  that  at  a  nonumbilical  point  there  exist  two  distinct  principal  curvatures  in 
two  perpendicular  directions. 

After  representing  of  E,  F,  G ,  L,  M,  and  N  in  the  form  of  Bu ,  Bv,  nu,  and  n„  by  equations  (A. 6) 
and  (A. 7),  equations  (A. 14)  and  (A. 15)  will  yield 

Bu  ■  («.„  dB  +  dn)  =  0  (A. 22) 

Bv  ■  (k„  dB  +  dn)  =  0  (A.23) 


Obviously, 


n  ■  (k„  dB  +  dn)  =  0 


(A. 24) 


Therefore,  Kn  dB  +  dn  is  a  zero  vector  since  it  is  orthogonal  to  Bu,  Bv,  and  n.  In  short,  we  have 


dn  =  -k„  dB 


(A. 25) 
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The  above  equation,  which  completely  characterizes  the  principal  curvatures  and  directions,  is 
called  Rodrigues'  formula.  This  formula  simplifies  the  calculations  to  obtain  principal  curvatures 
and  principal  directions.  The  matrix  form  of  Rodrigues'  formula  is 


cj  71  j. 

— —  du  — - —  dv 

"  dBx  dBx  i 

— —  du  i — - —  dv 

du  dv 

du  dv 

dn„  dn„ 

dBv  ,  dB„  , 

-JLdu+--V-  dv 
du  dv 

—  kjm 

dv 

du  dv 

dnz  ,dnz 

— —  du  ^ — - —  dv 

dB2  J  ,  dBz  J 
— —  du  H — - —  dv 

*-  du  dv  J 

du  dv  - 

(A.26) 


Matrix  equation  (A.26)  yields  three  scalar  equations  in  three  unknowns,  the  ratio  du/dv ,  and  the 
principal  curvatures  k;  and  Kn.  Using  any  two  of  the  scalar  equations  we  may  develop  a  quadratic 
equation  (provided  dv  ^  0) 


A 3 


.  du 

+  A'fo+Ao  =  ° 


(A. 27) 


The  two  roots  of  this  equation  correspond  to  two  principal  directions  on  the  surface.  By  putting 
both  roots  into  the  third  scalar  equation,  we  may  determine  the  principal  curvatures  and  nn. 

It  is  possible  to  have  either  positive  or  negative  principal  curvatures.  The  sense  of  the  principal 
curvature  depends  on  the  location  of  the  center  of  curvature  on  the  normal.  The  principal  curvature 
is  positive  if  the  center  of  curvature  is  located  on  the  positive  normal. 

The  normal  curvature  on  each  direction  may  be  expressed  in  terms  of  principal  curvatures.  This 
is  so  called  Euler’s  Theorem.  That  states 


2  .  2 

Kn  =  K,  COS  U7  +  Kjj  Sin  VO 


(A. 28) 


where  w  is  the  angle  formed  by  the  tangent  to  the  normal  curvature  and  principal  direction  with 
curvature  kv 
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A. 2  Relations  Between  Principal  Curvatures  and  Directions  for  Mating  Surfaces 

Consider  two  gear  surfaces  and  Eg  which  are  in  meshing.  Moreover,  we  have  the  following 
assumptions: 

1.  The  rotation  angles,  <j>r  and  (pe,  of  both  gears  are  given; 

2.  The  function  <t>Q(<t> r)  has  continuous  derivatives  of  second  order; 

3.  The  angular  velocity  u  of  gear  J-  is  constant. 

Then  relations  between  principal  curvatures  and  directions  of  these  mating  surfaces  may  be  deter¬ 
mined.  Such  relations  were  first  proposed  by  Litvin  [12]  and  then  extended  for  the  case  m'  ^  0 
by  Litvin  and  Gutman  [3j,  where  mFQ  =  J'T'> /u>ia)  is  the  gear  ratio. 

The  relations  may  be  expressed  by  a  system  of  three  linear  equations  in  two  unknowns 
and  rv£: 

a,\  rVs,  +  aj2  rViJ  =  aj3  ( j  =  1,2,3)  (A. 29) 


where  and  rV^J  are  the  projections  of  the  relative  velocity  TV{T)  at  the  contact  point  B  on 

the  principal  directions  on  surface  Eg.  The  equation  may  be  represented  by  a  symmetric  augmented 
matrix  [A].  That  is 


[A]  = 


o21  a22  a23 


L  a31  a32  a33 


(A. 30) 


Here 
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+  K 


=  Ke,-« 


?1 


cos  a  —  k, 


sin  cr  = 


*c," 


os2<r  (A. 31) 


-  x 


a,,  = 


—  sin  2<r 


(A. 32) 


k^,  V'  -  u>  ne0 

2/  c;  l  Qj 


(A. 33) 


=  K 


2/j 


sin  <7  —  K. 


COS  (7  = 


K  _  - 


K. -f  Kt 


—  cos  2(7  (A. 34) 


a 


23 


a,,  =  —  k  a  l_ 

32  Cfl  C/; 


r  —IT'S)  __  , 

neeni 


(A. 35) 


/.r(7-S)\2 

a»  =  )  +K«(zlV2W  ) 


[mZ(r2V^c)] 


(A. 36) 


—  n  ■ 


x 


.7(0  -(« 

trV"  ~  U) 


X 


tr^)  +  (w^)2  m'^(n  x  *a)  •  (5  -  OcCg 


and  KTn  are  the  principal  curvatures  at  the  contact  point  B  of  gear  T , 
ngr  and  KQn  are  the  principal  curvatures  at  the  contact  point  B  of  gear  2, 
eQ/  and  eQjj  are  the  unit  vectors  of  the  principal  directions  at  the  contact  point  B  of  gear  2, 
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a  is  the  angle  measured  counterclockwise  from  eT  ,  the  unit  vector  of  the  principal  direction  at 
the  contact  point  B  of  gear  T,  to  eQi , 
u '){T)  and  J12'  are  the  angular  velocities  of  gears  T  and  Q ,  respectively, 

^j{TS)  is  the  relative  angular  velocity  of  gear  T  with  respective  to  gear  Q, 
n  is  the  common  unit  normal  vector, 

is  the  relative  velocity  of  the  contact  point  on  gear  T  with  respect  to  the  same  contact 
point  on  gear  <2, 

V1™  and  VlJ  a>  are  the  projections  of  K1^2*  on  the  eQi  and  e*c^,  respectively, 

trr(fl  and  erl~121  are  the  transfer  velocities  of  contact  point  B  on  gear  T  and  gear  Q,  respectively, 

B  is  the  position  vector  of  the  common  contact  point  B, 

0 Q0 T  is  the  position  vector  from  0 Q  to  0T, 

hQ  is  the  unit  vector  of  the  axis  of  rotation  of  gear  Q,  and 

m'QT  is  the  derivative  of  the  rotation  ratio  of  gear  Q  to  gear  T ■  It  is  represented  as 


rn  = 

Q.T 


d  <t>T 


-m 


cx 


(<M 


where  <t>r  is  the  rotation  angle  of  gear  3-,  and 


(O) 


rnar(d>r)  ~ 


u> 


Totally,  there  are  two  cases  of  tangency  of  gear  tooth  surfaces: 

1.  The  surfaces  and  Ec  are  in  line  contact  and  B  is  just  a  point  of  the  instantaneous  line  of 
contact. 
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2.  The  surface-  and  EQ  are  in  point  contact  and  B  is  the  single  point  of  tangency  at  the 
considered  instant. 

In  the  case  of  line  contact  of  mating  surfaces,  the  rank  of  matrix  [.4]  is  equal  to  one.  Thus  all 
determinants  of  the  second  order  formed  from  the  elements  of  [A]  are  zero.  This  yields 


Gn 

= 

_  a!3 

fl,2 

fl22 

a23 

11 

_  <h± 

2= 

13 

a23 

a33 

12  _ 

=  ^21 

13 

a23 

a33 

(A.37) 


(A. 38) 


(A. 39) 


Using  equations  (A.31)-(A.39)  we  obtain 


tan  2a  = 


2ai,a2> 


-  a  3  +  (k 


2/ 


.K 


(A. 40) 


K  - 


'  it 


a33  cos  2a 


(A.41) 


r,  +  +  KQB)  ~ 


2  2 

a  +  a 

13  _ 23 


(A.42) 


For  the  case  when  surfaces  Ejr  and  Eg  are  in  point  contact,  the  rank  of  matrix  [A]  described 
by  equation  (A. 30)  is  two.  Consequently, 


97 


=  0 


(A.43) 


Equation  (A.43)  yields  the  relation 

/(S’%’Ka;-Kfin’<r)  =  0  (A-44) 

In  general,  equations  of  the  generated  surface  are  evidently  much  more  complicated  than  those 
of  the  generating  one.  Therefore,  a  direct  way  to  obtain  the  principal  curvatures  and  directions  of 
the  generated  surface  is  a  very  difficult  task.  This  work  can  be  significantly  simplified  if  we  apply 
the  relations,  described  in  this  section,  between  principal  curvatures  and  directions  of  meshing 
surfaces. 

A. 3  Relative  Normal  Curvature 

The  relative  normal  curvature,  kt,  of  two  mating  surface,  E;r  and  Eg,  at  the  contact  point  B 
is  defined  as  the  difference  of  the  normal  curvatures  of  both  surfaces  taken  in  a  common  normal 
section  of  surfaces  and  represented  as 


k,  =  C  -  <  (A.45) 

Suppose  the  common  normal  section  form  an  angle  w  with  the  unit  vector  eQ?  and  an  angle  (zj  + 
o)  with  the  unit  vector  eT  (Figure  23).  According  to  Euler’s  Theorem  (equation  (A. 28)),  we  obtain 

Kn  =  KQi  COS  W  +  KQn  sin  Kn  =  Kr,  cos  +  a)  +  Kfu  s^n  iW  +  O')  (A. 46) 
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Substituting  equation  (A. 46)  into  (A. 45),  after  simple  transformations  we  get 

kt  =  —  k,  cos 2  cr  -  K-.  sin2  ^r)  cos2  ro  +  (k_  -  k,  sin2  a  -  k_  cos2  <t)  sin2  to 

r  \  Q.j  Tj  Fn  )  '  \  Qn  TIt  > 

x  (A.47) 

+  -(kt  -  kt  )  sin 2a sin 2cc 
2 v  Tl  Tu> 

Equation  (A.47)  and  expressions  for  an,  a12,  and  a22  in  equations  (A. 31),  (A. 32),  and  (A. 34)  yield 


(A.48) 


The  extreme  values  of  function  Kr(ir)  may  be  determined  by 


0 


(A. 49) 


Thus  we  obtain 


„  2a 

tan  2rr  =  - 


(A. 50) 


This  equation  has  two  solutions  m,  and  tn3 .  Moreover,  |tu,  —  xxr3 1  =  tr/2.  This  means  that  there  are 
two  perpendicular  directions  for  the  extreme  relative  normal  curvatures.  Using  equations  (A.48) 
and  (A. 50)  the  extreme  values  of  the  relative  normal  curvatures  are  represented  by 


Kr  =  - 


(ail  “t"  a2s)  \/(  ^1 1  fl22  ) 


(A.51) 


We  may  determine  whether  or  not  two  surfaces  interfere  each  other  by  the  concept  of  relative 
normal  curvatures.  If  two  surfaces  contact  at  a  point  with  any  interference,  the  sign  of  the  relative 
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normal  curvature  in  each  direction  must  remain  the  same.  In  other  words,  the  product  of  two 
extreme  values  of  the  relative  normal  curvatures  is  positive.  Equations  discussed  in  this  section 
were  first  proposed  by  Litvin  [9], 

A. 4  Contact  Ellipse 


In  theory  the  tooth  surfaces  of  a  pair  of  spiral  bevel  gears  are  in  contact  at  a  single  point  at 
every  instant.  In  practice  the  surface  of  the  solids  is  deformed  elastically  over  a  region  surrounding 
the  initial  point  of  contact,  thereby  bring  the  two  bodies  into  contact  over  a  small  area  in  the 
neighborhood  of  the  initial  contact  point  [13,  14].  Such  an  area  is  an  ellipse  whose  center  of 
symmetry  is  the  theoretical  point  of  contact  and  the  dimensions  depend  on  the  elastic  approach 
and  principal  curvatures  and  directions  of  the  contacting  surfaces.  If  the  approach  of  surfaces  under 
the  action  of  load  is  given,  the  size  and  orientation  of  the  contact  ellipse  can  be  defined  as  a  result 
of  a  geometric  solution.  Litvin[9,  15]  has  investigated  the  mathematical  modeling  of  the  contact 
ellipse. 

Let  us  now  consider  that  two  surfaces  £j  and  £2  are  contact  at  a  single  point  B.  The  principal 
curvatures,  k1j  and  k1  of  Ej  and  k2j  and  k2jj  of  £2)  at  point  B  are  known.  Also  known  are  unit 
vectors  elj  and  eXj],  which  are  directed  along  the  principal  directions  of  £j  at  point  B,  and  e2j 
and  e2jj ,  which  are  directed  along  the  principal  directions  of  £2  at  point  B.  Unit  vectors  and  e2j 
determine  the  tangent  plane  (Figure  24).  Angle  crl2,  which  is  measured  counterclockwise  from  e, 
to  e2; ,  is  also  determined  since  ?  and  e2;  have  already  been  known.  Then  the  contact  ellipse  may 
be  described  as 


(A. 52) 


in  which  C  and  tj  are  coordinates  with  respect  to  the  £  and  7?  axes  with  origin  at  the  contact  point  B. 
The  lengths  of  semiaxes  a  and  b  are 


lOi 


a  = 


(A. 53) 


where  e  is  the  approach,  and 


-  2k1a/c2a  cos  2<t12 


(A. 54) 


/c2S  + 


2ku,k2*  cos2crn 


(A. 55) 


where 


V2S 


=  *a,  +  *2, 


(A. 56) 


—  Ki[ 


la  ’ 


K2A  —  *2/ 


(A.57) 


The  angle  a,  which  determines  the  orientation  of  the  ellipse  may  be  obtained  by  equations 


cos  2c*j 


*,  a  ~  « 2 A  cos  2ct12 


ft1A  ~  2«1Aftsa  cos2<t12  ■+•  ft 


2 

2  A 


and 


sin  2a  j 


2«2A  sin  2<tu 

\J^~  2ft1A«2A  cob2«tu  +  k*a 


(A. 58) 


(A. 59) 
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Finally 


“i 


-  arctan 


sin  2Qj 
1  4-  cos  2Qj 


Note  that  the  angle  is  measured  counterclockwise  from  the  tj  axis  to  the  unit  vector  e j 
Since 


A2  -B2  =  -  «ie)\/kia  “  2kiak2*  cos2 a~  +  k 


2 

2  A 


the  semimajor  axis  of  the  contact  ellipse  may  be  determined  by  the  following  conditions: 

•  The  length  of  the  semimajor  axis,  which  is  along  the  rj  axis,  is  b 
if  kje  >  «1S  or  \A\  >  |B|. 

•  The  length  of  the  semimajor  axis,  which  is  along  the  (  axis,  is  a 

if  or  \B\  >  l-4|- 


(A. 60) 
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APPENDIX  B 

NUMERICAL  EXAMPLES 

In  this  section,  we  will  use  the  synthesis  method  discussed  in  Chapter  3  to  determine  the 
machine-tool  settings  for  a  pair  of  spiral  bevel  gear  drive,  and  then  we  will  use  the  TCA  to  simulate 
the  meshing  of  this  pair  under  alignment  and  misalignment  conditions.  Two  cases  are  considered 
here.  Both  cases  use  straight  blades  to  cut  gears,  but  for  the  pinion,  case  1  uses  straight  blades, 
and  case  2  uses  curved  blades. 

The  major  blank  data  is  represented  in  Table  2.  Table  3  shows  the  input  for  case  1,  and  Table  4 
shows  the  input  for  case  2.  The  output  for  the  gear  machine-tool  settings  is  shown  in  Table  5, 
which  is  the  same  for  both  cases.  For  the  pinion  machine-tool  settings,  case  1  is  shown  in  Table  6, 
and  case  2  is  shown  in  Table  7. 

Two  conditions  of  misalignment  are  considered  when  the  TCA  is  applied  to  simulate  the  mesh¬ 
ing.  They  are  the  shift  of  pinion  along  its  axis,  which  is  denoted  by  AA,  and  the  error  of  pinion 
shaft  offset,  which  denoted  by  AV.  We  consider  that  A  A  is  positive  when  the  mounting  distance 
of  pinion  is  increased.  The  sense  of  AV  is  the  same  as  yf  shown  in  Figure  18.  The  output  of  the 
TCA  is  shown  from  Figure  25  to  Figure  34  for  case  1,  and  from  Figure  35  to  Figure  44  for  case  2, 
respectively. 


105 


Table  2:  BLANK  DATA. 


Pinion 

Gear 

Number  of  Teeth 

10 

41 

Diametral  Pitch 

5.559 

Shaft  Angle 

90° 

Mean  Cone  Distance 

3.226 

Outer  Cone  Distance 

3.796 

Whole  Depth 

0.335 

Working  Depth 

0.302 

Clearance 

0.033 

Face  Width 

1.139 

Root  Cone  Angle 

12°1' 

72°25' 

Mean  Spiral  Angle 

— 

35° 

Hand  of  Spiral 

R.H. 

L.H. 

Table  3:  INPUT  DATA  FOR  CASE  1. 


Gear  Convex  Side 

Gear  Concave  Side 

Gear  Blade  Angle 

20° 

Gear  Cutter  Average  Diameter 

6 

Gear  Cutter  Point  Width 

0.08 

First  Derivative  of  Gear  Ratio 

-0.0035 

0.0052 

Semimajor  Axis  of  Contact  Ellipse 

0.171 

0.181 

Contact  Path  Direction  Angle 

o 

O 

Oi 

75° 
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Table  4:  INPUT  DATA  FOR  CASE  2. 


Gear  Convex  Side 

Gear  Concave  Side 

Gear  Blade  Angle 

to 

o 

o 

Gear  Cutter  Average  Diameter 

6 

Gear  Cutter  Point  Width 

0.08 

First  Derivative  of  Gear  Ratio 

-0.0037 

0.0055 

Semimajor  Axis  of  Contact  Ellipse 

0.171 

0.171 

Contact  Path  Direction  Angle 

90° 

75° 

Radius  of  Blade 

40. 

50. 

Table  5:  GEAR  MACHINE-TOOL  SETTINGS. 


Radial 

Cradle  Angle 
Ratio  of  Roll 


2.87798 

58.6365 

0.973748 
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Table  6:  PINION  MACHINE-TOOL  SETTINGS  WITH  STRAIGHT  BLADE. 


Pinion  Concave  Side 

Pinion  Convex  Side 

Blade  Angle 

16.5561° 

22.9907° 

Tip  Radius  of  Cutter 

2.96469 

3.07037 

Radial 

2.99331 

2.69783 

Cradle  Angle 

63.1869° 

54.1910° 

Ratio  of  Roll 

0.22900 

0.25348 

Machining  Offset 

0.17404 

-0.24459 

Machine  Center  to  Back  + 
Sliding  Base 

0.021231 

0.052118 

Table  7:  PINION  MACHINE-TOOL  SETTINGS  WITH  CURVED  BLADE. 


Pinion  Concave  Side 

Pinion  Convex  Side 

Blade  Angle 

16.5561° 

22.9907° 

Blade  Center 

(11.557,  0.,  -35.309) 

(19.685,  0.,  49.006) 

Tip  Radius  of  Cutter 

2.98467 

3.04386 

Radial 

2.95578 

2.74261 

Cradle  Angle 

63.0025° 

54.0900° 

Ratio  of  Roll 

0.23157 

0.24915 

Machining  Offset 

0.12042 

-0.18825 

Machine  Center  to  Back  + 
Sliding  Base 

0.01690 

0.03605 
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Figure  28:  Straight-edged  blade,  gear  convex  side,  AV  =  +0.002  inches. 
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Figure  31:  Straight-edged  blade,  gear  concave  side,  AA  =  +0.002  inches. 
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Figure  32:  Straight-edged  blade,  gear  concave  side,  A  A  =  -0.002  inches. 
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PINION  ROTATION  ANCLE  liNgrn) 


Figure  33:  Straight -edged  blade,  gew  concave  side,  AV  =  +0.002  inches. 


union  ROTATION  ANGLE  ld*grn) 


Figure  35:  Curved-edged  blade,  gear  convex  side,  alignment. 
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Figure  36:  Curved-edged  blade,  gear  convex  side,  AA  =  +0.002  inches. 
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Figure  37:  Curved-edged  blade,  gear  convex  side,  A  A  =  -0.002  inches. 
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Figure  38:  Curved-edged  blade,  gear  convex  side,  AV-  =  +0.002  inches. 
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Figure  39:  Curved-edged  blade,  gear  convex  side,  AV  =  -0.002  inches. 
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Figure  40:  Curved-edged  blade,  gear  concave  side,  alignment. 
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Figure  43:  Curved-edged  blade,  gear  concave  side,  AV  =  +0.002  indies. 
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APPENDIX  C 


LISTING  OF  COMPUTER  PROGRAMS 


*********************************************************************** 
*  * 

Gleason's  Spiral  Bevel  Gears  * 

Basic  Machine-Tool  Settings  and  Tooth  Contact  Analysis  * 

* 

Straight  Blade  to  Cut  the  Pinion  * 

*  * 

*********************************************************************** 

IMPLICIT  REAL *8 (A~H, K,M~Z) 

REAL *8  X(l) ,F(1) ,FI(1) .PAR (6) , LM, TX (5) , TF (5) , TF1 (5) , TPAR (19) , 

AZSP (I , 1) , WORKP (1 ) , A2S (5 , 5) , WORK (5) 

CHARACTER *8  HG.HNGR 
DIMENSION  IPVTP (1) , IPVT (5) 

EXTERNAL  PCN.TCN 
COMMON/P 1 /PAR 
COMMON/ T1 /TPAR 
COMMON/AO/HG 

COMMON/ Al /pi 1 ,pl2,pl3,p21,p22,p23,p31,p32,p33,pl,p2,p3 

COMMON/ A2/SG , CSRT2 , QG , SNPSIG , CSPSIG 

COMMON/ A3/TND1 , TND2 , RITAG 

COMMON/ AA/CSD2 , SND2 , CSP IT2 , SNP IT2 

COMMON/ A5/CSQG, SNQG , THETAG 

COMMON/B1/CSPH1 1 , SNPHl 1 , SP ,EM, LM, CSRTl , CSD1 , SND1 , CSPSIP , SNPSIP 

COMMON/B2/CSPIT1 , SNPITl ,MP1 ,MG2 ,QP 

COMMON/B3/B2f x , B2f y , B2f z 

COMMON/BA/CSPH2 , SNPH2 , CSPH21 , SNPH2 1 

COMMON/C 1 /UG , CSTAUG , SNTAUG 

COMMON/C2/N2f x , N2f y , N2f z 

COMMON/DI /UP , CSTAUP , SNTAUP 

COMMON/El/XBf , YBf ,ZBf 

COMMON/ Fl/PHIGO 

COMMON/Gl/DAl.DVl 

* 

*  INPUT  THE  DESIGN  DATA 

* 

*  TNI  :  number  of  pinion  teeth 

*  - sec.  3.1 


* 

* 

* 

* 
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*  TN2  :  number  of  gear  teeth 

*  - sec.  3.1 

*  RTldg,  RTlmin  :  root  angle  of  pinion  (degree  and  arc  minute,  respec- 

*  tively) 

*  sec.  3.1 

*  RT2dg,  RT2min  :  root  angle  of  gear  (degree  and  arc  minute,  respec- 

*  tively) 

*  sec.  3.1 

*  SHAFdg  :  shaft  angle  (degree) 

*  sec.  3.1 

*  BETAdg  :  mean  spiral  angle  (degree) 

*  sec.  3.1 

*  ADIA  :  average  gear  cutter  diameter 

*  sec.  3. 1 

*  W  :  point  width  of  gear  cutter 

*  sec.  3.1 

*  A  :  mean  cone  distance 

*  sec.  3.1 

*  ALPHdg  :  blade  angle  of  gear  cutter  (degree) 

*  sec.  3.1 

*  DLTXdg  :  angle  measured  counterclockwise  from  root  of  gear  to 

*  the  tangent  of  the  contact  path  (degree) 

*  gear  convex  side 

*  fig*  19 

*  DLTVdg  :  angle  measured  counterclockwise  from  root  of  gear  to 

*  the  tangent  of  the  contact  path  (degree) 

*  gear  concave  side 

*  - fig*  19 

*  M21XPR  :  first  derivative  of  gear  ratio 

*  gear  convex  side 

*  sec .  3.1.1 

*  M21VPR  :  first  derivative  of  gear  ratio 

*  gear  concave  side 

*  sec .  3.1.1 

*  AX I LX  :  semimajor  axis  of  contact  ellipse 

*  gear  convex  side 

*  eq.  (3.76) 

*  AXILV  :  semimajor  axis  of  contact  ellipse 

*  gear  concave  side 

*  eq.  (3.76) 

*  HNGR  :  hand  of  gear  ('L'  or  'R') 

*  DA  :  amount  of  shift  along  pinion  axis 

*  +  :  pinion  mounting  distance  being  increased 

*  -  :  pinion  mounting  distance  being  decreased 

*  DV  :  amount  of  pinion  shaft  offset 

*  the  same  sense  as  yf  shown  in  fig.  18 

*  DEF  :  elastic  approach 

*  - eq.  (3.76) 

*  EPS  :  amount  to  control  calculation  accuracy 

* 

*  OUTPUT  OF  THE  BASIC  MACHINE-TOOL  SETTINGS 

* 

*  PSIGdg  :  gear  blade  angle 
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*  PSIPdg 

*  RG 

*  RP 

*  SG 

*  SP 

*  QGdg 

*  QPdg 

*  MG2 

*  MP1 

*  EM 

*  LM 


:  pinion  blade  angle 
:  tip  radius  of  gear  cutter 
:  tip  radius  of  pinion  cutter 
:  gear  radial 
:  pinion  radial 
:  gear  cradle  angle 
:  pinion  cradle  angle 
:  gear  cutting  ratio 
:  pinion  cutting  ratio 
:  machining  offset 

:  machine  center  to  back  +  sliding  base 


* 

* 


DATA  TNI ,TN2/ 10. DOO, 41. DOO/ 

DATA  RTldg,RTlmin/12.D00, 1.D00/ 
DATA  RT2dg,RT2min/72 .D00 , 25 . D00/ 
DATA  SHAF dg , BETAdg/ 90 . D00 , 35 . D00/ 
DATA  ADIA/6.OD00/ 

DATA  W/0.08D00/ 

DATA  A/3 . 226D00/ 

DATA  ALPHdg/20 . D00/ 

DATA  DLTXdg/  90.D00/ 

DATA  DLTVdg/  75.D00/ 

DATA  M21XPR/-3.5D-03/ 

DATA  M21VPR/5.2D-03/ 

DATA  AXILX/0. 1710D00/ 

DATA  AXILV/0. 1810D00/ 

DATA  HNGR/'L’/ 

DATA  DV , DA/ 0 . D00 , 0 . DOO / 

DATA  DEF/0 . 00025D00/ 

DATA  EPS/l.D-12/ 


DAl=DA 
DV 1 =DV 
HG=HNGR 

* 

*  CONVERT  DEGREES  TO  RADIANS 

* 


CNST=4. D00*DATAN (1 .DOO) / 180. DOO 

RITAG=90.D00*CNST 

DLTX=DLTXdg*CNST 

DLTV-DLTVdg*CNST 

RT1* (RTldg+RT lmin/60 . DOO) *CNST 

RT2» (RT2dg+RT2min/60 . DOO) *CNST 

BETA=BETAdg*CNST 

PSIG-ALPHdg*CNST 

SHAFT'SHAFdg*CNST 

CSRT2-DCOS(RT2) 

SNRT2-DSIN(RT2) 

CSRT1»DC0S(RT1) 

SNRTl-DSIN(RTl) 
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*  CALCULATE  PITCH  ANGLES 

* 

MM21-TN1/TN2 
c - eq.  (3-1) 

PITCH2-DATAN (DSIN (SHAFT) / (MM21+DC0S (SHAFT) ) ) 

IF (PITCH2  .LT.  0 . DOO) THEN 
P I TCH2-P ITCH2+ 180 . DOO 
END  IF 

CSPIT2-DC0S (PITCH2) 

SNPIT2-DSIN (PITCH2) 

c - eq.  (3.2) 

P I TCH 1 =SHAFT-P I TCH2 
CSPIT1=DC0S (PITCH1) 

SNPITl^DSIN (PITCH1) 

* 

*  CALCULATE  DEDENDUM  ANGLES 

* 

c - eq.  (3.3) 

D1=PITCH1-RT1 

D2*=PITCH2~RT2 

CSDl-DCOS(Dl) 

SNDl-DSIN(Dl) 

TND1-SND1/CSD1 
CSD2-DC0S  (D2) 

SND2-DSIN(D2) 

TND2=SND2/CSD2 

* 

*  CALCULATE  GEAR  CUTTING  RATIO 

* 

c - eq.  (3.7) 

MG2=DSIN (PITCH2) /CSD2 

* 

*  FOR  GEAR  CONVEX  SIDE  I  -  1,  FOR  GEAR  CONCAVE  SIDE  I 

* 

DO  99999  1-1,2 
IF  (I  .EQ.  1)THEN 
WRITE (72,*) 'GEAR  CONVEX  SIDE’ 

DLTA-DLTX 

M21PRM-M2IXPR 

AXIL-AXILX 

ELSE 

WRITE (72,*) 'GEAR  CONCAVE  SIDE' 

DLTA-DLTV 
M21PRM-M21VPR 
AXIL-AXILV 
END  IF 
WRITE (72 , *) 

c - eq.  (3.76) 

AXIA-DEF/ (AXIL*AXIL) 

* 

*  CALCULATE  GEAR  BLADE  ANGLE 

* 

c - iec.  2.2 
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IF (I  .EQ.  2) THEN 
PSIG-180.D00*CNST-PSIG 
END  IF 

CSPSIG“DCOS (PSIG) 

SNPSIG“DSIN (PSIG) 

CTPSIG=CSPSIG/SNPSIG 

* 

*  CALCULATE  CUTTER  TIP  RADIUS 

* 

c - eq.  (3.8) 

IF (I  .EQ.  1)THEN 
RG= (ADIA-W) / 2 . DOO 
ELSE 

RG= (ADIA+W) / 2 . DOO 
END  IF 

* 

*  CALCULATE  RADIAL 

* 

c - eq.  (3.9) 

IF (I  .EQ.  1)THEN 

SG-DSQRT (ADI A* ADI A/ 4 . D00+A*A*CSD2*CSD2- A* ADI A*CSD2*DS IN (BETA) ) 

* 

*  CALCULATE  CRADLE  ANGLE 

* 

c - eq.  (3.10) 

QG-DACOS ( (A*A*CSD2*CSD2+SG*SG-ADlA*ADIA/4 . DOO) / (2 . D00*A*SG*CSD2) ) 
CSQG-DCOS (QG) 

SNQG-DSIN(QG) 

END  IF 

* 

PAR ( 1 ) =RG*CTPS IG*CSPS I G 
PAR  (4)  =*RG*CTPSIG 

* 

*  CALCULATE  PHIG 

* 

PHIG-O.DOO 
PHIGO-PHIG 
CSPHIG-DCOS (PHIG) 

SNPHIG=DSIN (PHIG) 

* 

IF (HG  .EQ.  ' L ' ) THEN 
IF (I  .EQ.  1)THEN 

*  *Ms c 

c - eq.  (2.26) 

CALL  COMBI (mil ,ml2,ml3,m21 ,m22,m23,m31 ,m32,m33,ml ,m2,m3, 

1. DOO, 0. DOO, 0.000,0. DOO, CSPHIG, SNPHIG, 0. DOO, -SNPHIG, CSPHIG, 

0. DOO, 0. DOO, 0. DOO, 

1 . DOO , 0 . DOO , 0 . DOO , 0 . DOO , CSQG , -SNQG , 0 . DOO , SNQG , CSQG , 

0 . DOO , -SG*SNQG , SG*CSQG) 

END  IF 

*  Mpc“Mpm*Mmc 

c  -  eq«.  (2.25),  (3.13) 

CALL  COMBI (pll ,pl2,pl3,p21 ,p22,p23,p31 ,p32,p33,pl ,p2,p3, 
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CSD2 , 0 . DOO , -SND2 , 0 . DOO , 1 . DOO , 0 . DOO , SND2 , 0 . DOO , CSD2 , 

0 . DOO , 0 . DOO , 0 . DOO , 

.  mil , ml 2, ml 3 ,m21 ,m22 ,m23,m31 , m32 ,m33 ,ml ,m2 ,m3) 

ELSE 

* 

IF (I  .EQ.  1)THEN 

*  Mmc=Mms*Msc 

c - eq.  (2.26) 

CALL  COMBI (mil , ml 2, ml 3 ,m21 ,m22,m23 ,m31 ,m32,m33 ,ml ,m2,m3 , 

1 .  DOO , 0 .  DOO , 0 . DOO , 0 . DOO , CSPHIG , -SNPHIG , 0 . DOO , SNPHIG , CSPHIG , 
0. DOO, 0. DOO, 0. DOO, 

1 . DOO , 0 . DOO , 0 . DOO , 0 . DOO , CSQG , SNQG , 0 . DOO , -SNQG , CSQG , 

0 . DOO , SG*SNQG , SG*CSQG) 

END  IF 

*  Mpc=Mpm*Mmc 

c  -  eqs.  (2.25),  (3.13) 

CALL  COMBI (pll,pl2,pl3,p21, p22 , p23 , p31 ,p32,p33 , pi ,p2,p3 , 

CSD2 , 0 . DOO , -SND2 , 0 . DOO , 1 . DOO , 0 . DOO , SND2 , 0 . DOO , CSD2 , 

0. DOO, 0. DOO, 0. DOO, 

mil ,ml2,ml3 ,m21 ,m22 ,m23 ,m31 ,m32 ,m33 ,ml , m2, m3) 

END  IF 

* 

*  DETERMINE  MAIN  CONTACT  POINT 

* 

* 

*  CALCULATE  THETAG 


c  -  X(l)  represents  THETAG 

PAR (2) = (MG2-SNRT2) *CSPSIG 
IF (HG  .EQ.  1 L ' ) THEN 
PAR(3)=-SNQG*CSRT2*SNPSIG 

c - step  1  in  sec.  3.2 

X(1)=QG-BETA+RITAG 

ELSE 

PAR (3) =SNQG*CSRT2*SNPSIG 
c - step  1  in  sec.  3.2 


X (1) — (QG-BETA+RITAG) 

END  IF 

CALL  NONLIN (PCN , 1 4 , 1 , 1 00 , X , F , FI , 1 . D-5 , A2SP , IPVTP , WORKP) 
THETAG-X(l) 

CSTHEG-DCOS (THETAG) 

SNTHEG-DSIN (THETAG) 

* 

*  CALCULATE  TAUG 

* 

c - eq.  (2.38) 

IF (HG  .EQ.  ' L ' ) THEN 
TAUG-THETAG-QG+PHIG 
ELSE 

TAUG-THETAG+QG-PHIG 
END  IF 

CSTAUG-DCOS (TAUG) 
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SNTAUG=DSIN (TAUG) 

* 

*  CALCULATE  UG 

* 

c - eq.  (2.43) 

IF (HG  .EQ.  ' L 1 ) THEN 

UG=RG*CTPSIG*CSPSIG~SG* ( (MG2-SNRT2) *CSPSIG*SNTHEG-DSIN (QG-PHIG) * 

#  CSRT2*SNPSIG)/(CSRT2*SNTAUG) 

ELSE 

UG=RG*CTPSIG*CSPSIG-SG* ( (MG2-SNRT2) *CSPSIG*SNTHEG+DSIN (QG-PHIG) * 

#  CSRT2*SNPSIG) / (CSRT2*SNTAUG) 

END  IF 

* 

*  CALCULATE  MAIN  CONTACT  POINT 

* 

c - eq.  (2.1) 

Bcx=RG*CTPSIG-UG*CSPSIG 

Bcy=UG*SNPSIG*SNTHEG 

Bcz=UG*SNPSIG*CSTHEG 

c - eq.  (2.2) 

Ncx=SNPSIG 

Ncy=CSPSIG*SNTHEG 

Ncz=CSPSIG*CSTHEG 

c - eq.  (2.9) 

EGIcx=0.D00 

EGIcy=CSTHEG 

EGIcz=~SNTHEG 

c - eq .  (3.13) 

CALL  TRCOOR(Bpx,Bpy,Bpz, 

.  pll ,pl2,p!3,p21 ,p22,p23,p31 ,p32,p33,pl,p2,p3, 

.  Bcx,Bcy,Bcz) 

c - eq.  (3.16) 

CALL  TRCOOR(Npx,Npy,Npz, 

.  pll,pl2,pl3, p21 ,p22, p23 , p31 ,p32 , p33 , 0. DOO , 0. DOO, 0. DOO, 

.  Ncx,Ncy,Ncz) 

c - eq.  (3. 17) 

CALL  TRCOOR (EGIpx , EGIpy , EGIpz, 

.  pll,pl2,pl3,p21 , p22, p23 , p31 ,p32 , p33 , 0. DOO, 0. DOO, 0.D00, 

.  EGIcx,EGIcy,EGIcz) 

c - fig*  18  &  sec.  3.3 

Bfx*Bpx 

Bfy=Bpy 

Bfz“Bpz 

Nfx-Npx 

Nfy“Npy 

Nfz'Npz 

EGIf x“EGIpx 

EGIfy-EGIpy 

EGIfz-EGIpz 

k 

*  CALCULATE  PS IP 

k 

c - eq.  (3.83) 
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PSIP=DASIN (CSDl*Nf x~SNDl*Nfz) 

IF  (I  .EQ.  1)THEN 
PSIP=-PSIP+180.D00*CNST 
END  IF 

CSPSIP=DCOS (PSIP) 

SNPSIP=DSIN (PS IP) 

* 

*  CALCULATE  TAUP 

* 

c  -  eqs.  (3.84)-(3.86) 

TAUP=DATAN2 (Nf y/CSPSIP , (Nfx-CSDl*SNPSIP) / (~SND1*CSPSIP) ) 
CSTAUP=DCOS (TAUP) 

SNTAUP=DSIN (TAUP) 

>V 

*  CALCULATE  PRINCIPAL  CURVATURES  AND  DIRECTIONS  OF  THE  GEAR  CUTTER 


c - eq.  (2.10) 

KGI=-CTPSIG/UG 

c - eq.  (2.12) 

KGI 1=0.000 

c  the  second  principal  direction  is  determined  by  rotating  of 

c  the  first  principal  derection  about  unit  normal  by  90  degrees 


CALL  ROTATE (EGIIf x , EGIIf y, EGIIf z, EGI fx , EGIf y, EGIf z,RITAG, 
.  Nfx,Nfy,Nfz) 

* 

*  CALCULATE  W2G 

* 

c - eqs.  (3 . 18)  -  (3.20) 

IF (HG  .EQ.  ' L ' ) THEN 
W2fx=-SNPIT2 
WGfx=-MG2*CSD2 
W2fy=0.D00 
WGfy=0.D00 
W2fz=CSPIT2 
WGfz=-MG2*SND2 
ELSE 

W2fx=SNPIT2 

WGfx»MG2*CSD2 

W2fy=*0.D00 

WGfy=O.DOO 

W2fz=-CSPIT2 

WGfz~MG2*SND2 

END  IF 

* 

W2Gf x=W2f x-WGf x 
W2Gfy*W2f y-WGfy 
W2Gfz»W2fz~WGfz 

* 

*  CALCULATE  VT2 ,  VTG,  AND  VT2G 

* 

c - eq.  (3.22) 

CALL  CROSS (VT2fx,VT2fy,VT2fz,W2fx,W2fy,W2fz,Bfx,Bfy,Bfz) 

c - eq.  (3.21) 
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CALL  CROSS (VTGfx , VTGfy , VTGf z, WGf x , WGf y , WGf z , Bf x , Bf y , Bf z) 

c - eq.  (3.23) 

VT2Gfx=VT2fx-VTGfx 
VT2Gfy=VT2fy- VTGfy 
VT2Gfz=VT2fz~VTGfz 

Vc 

*  CALCULATE  V(2G)GI  AND  V(2G)GII 

Vc 

c - eq.  (3.24) 

CALL  DOT  (VGI , EGIf  x , EGI f y , EGI f z ,  VT2Gf  x,  VT2Gf y ,.VT2Gf z) 
c - eq.  (3.25) 

CALL  DOT (VGII,EGIIfx,EGIIfy,EGIIfz, VT2Gf x , VT2Gfy , VT2Gfz) 

* 

*  CALCULATE  Al3,A23,A33 

Vr 

c 


c 


c 


* 

*  CALCULATE  SIGMA 

* 


*  CALCULATE  K2I  AND  K2II 

* 

c - eqs.  (3 . 30) - (3. 31) 

T1=P/ (A33*DCOS (SIGDBL) ) 

T2=KGI+KGII~  (A13*A13+A23*A23)  /A33 
K2I= (T1+T2) /2.D00 
K2II=(T2-T1)/2.D00 

* 

*  CALCULATE  E2I  AND  E2II 

* 

c  -  description  after  eq.  (3.29) 

CALL  ROTATE (E2lf x, E2lf y, E2lf z, EGI fx, EGIf y, EGIf z, -SIGMA, Nfx.Nfy, 
.  Nfz) 

CALL  ROTATE (E2llf x,E2I If y,E2IIfz,E2lfx,E2lfy,E2lfz,RITAG, 

.  Nfx,Nfy,Nfz) 
c - eq.  (3.44) 

TNETAG-DSIN (DLTA+SIGMA) /DCOS (DLTA+ SIGMA) 

•k 


-  eq.  (3.29) 

P=A23*A23-A13*A13+ (KGI-KGII) *A33 
S IGDBL=DATAN (2 . DOO*Al 3*A23/P) 

S I GMA=0 . 5D00*S IGDBL 


-  eq.  (3.26) 

CALL  DET (DETI, W2Gf x, W2Gf y,W2Gfz,Nfx,Nfy, Nfz, EGIf x, EGI fy, EGIf z) 
A13=-KGI*VGI-DETI 

-  eq.  (3.27) 

CALL  DET  (DETI I ,W2Gfx,W2Gfy,W2Gfz,Nfx,Nfy ,Nfz,EGIIfx,EGIIfy,EGIIfz) 
A23=-KGI I*VGI I-DETI I 

-  eq.  (3.28) 

CALL  DET (DET3,Nfx,Nfy,Nfz,W2Gfx,W2Gfy,W2Gfz, VT2Gfx, VT2Gfy, VT2Gfz) 
CALL  CROSS(Cx,Cy,Cz,W2fx,W2fy,W2fz, VTGfx, VTGfy, VTGfz) 

CALL  CROSS (Dx , Dy , Dz , WGf x , WGf y , WGf z , VT2f x , VT2f y , VT2f z) 

CALL  DOT (DET45 ,Nfx,Nfy,Nfz, Cx-Dx , Cy-Dy , Cz~Dz) 
A33=KGI*VGI*VGI+KGII*VGII*VGII-DET3-DET45 
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*  CALCULATE  W2 

* 

c - eq.  (3.33) 

IF (HG  .EQ.  ' L 1 ) THEN 
W2fx=-MM21*SNPIT2 
W2fy=0.D00 
W2fz=MM21*CSPIT2 
ELSE 

W2fx-MM21*SNPIT2 
W2fy=0.D00 
W2fz="MM21*CSPIT2 
END  IF 

k 

*  CALCULATE  W1 

* 

c - eq.  (3.32) 

IF (HG  .EQ.  ' L ' ) THEN 
Wlfx=-SNPIT1 
Wlfy=O.DOO 
Wlfz=-CSPIT1 
ELSE 

Wlfx=SNPITl 
Wlfy=O.DOO 
Wlfz=CSPITl 
END  IF 

* 

*  CALCULATE  W12 

* 

c - eq .  (3.34) 

WI2fx=Wlfx-W2fx 

W12fy=Wlfy-W2fy 

Wl2fz=Wlfz-W2fz 

* 

*  CALCULATE  VT2 

* 

c - eq.  (3.36) 

CALL  CROSS (VT2fx, VT2fy, VT2fz, W2f x, W2f y , W2fz, Bfx , Bfy, Bfz) 

* 

*  CALCULATE  VTl 

* 

c - eq.  (3.35) 

CALL  CROSS (VTlf x, VTlf y, VTl fz.Wlf x,Wlfy,Wlfz, Bfx, Bfy, Bfz) 

* 

*  CALCULATE  VTl 2 

* 

c - eq.  (3.37) 

VT12fx=VTlfx-VT2fx 

VT12fy»VTlfy-VT2fy 

VT12fz*VTlfz-VT2fz 

"k 

*  CALCULATE  V2 

* 

c - eq.  (3.38) 
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CALL  DOT(V2I,VT12fx,VT12fy,VTl2fz,E2Ifx,E2Ify,E2lfz) 

-  eq.  (3.39) 

CALL  DOT (V2II,VTl2fx,VTl2fy,VT12£z,E2lIfx,E2lIfy,E2lIfz) 

CALCULATE  A31 
-  eq.  (3.40) 

CALL  DET (DET1 ,W12fx,Wl2fy,Wl2fz,Nfx,Nfy,Nfz,E2lfx,E2Ify,E2lfz) 
A31=-K2I*V2I-DET1 

-  eq.  (A. 33) 

A13=A31 

CALCULATE  A32 

-  eq.  (3.41) 

CALL  DET(DET2,Wl2fx,Wl2fy,Wl2fz,Nfx,Nfy,Nfz,E2lIfx,E2lIfy,E2lIfz) 
A32=-K2II*V2II-DET2 

-  eq.  (A. 35) 

A23=A32 

CALCULATE  A3 3 

-  eq.  (3.42) 

CALL  DET(DET3,Nfx,Nfy,Nfz,W12fx,Wl2fy,W12fz,VT12fx,VT12fy,VT12fz) 
CALL  CROSS (Cx,Cy,Cz, Wlfx, Wlfy, Wlfz, VT2fx, VT2fy, VT2fz) 

CALL  CROSS (Dx,Dy,Dz,W2fx, W2fy,W2fz, VTlfx, VTlfy, VTlfz) 

CALL  DOT (DOT1 , Nf x , Nf y , Nf z, Cx~Dx , Cy~Dy , Cz-Dz) 

CALL  DET (DET4 , Nf x , Nf y , Nf z , W2f x , W2f y , W2fz, Bf x , Bf y , Bf z) 
A33=K2I*V2I*V2I+K2II*V2II*V2II-DET3~D0T1+M21PRM*DET4 

CALCULATE  ETAP 

-  eq.  (3.53) 

ETAP=DATAN  ( (  (A33+A31*V2l)  *TNETAG-A31*V2ll)  /  (A33+A32* 

.  (V2II-V2I*TNETAG))) 

TNETAP=DSIN (ETAP) /DCOS (ETAP) 

CALCULATE  All,  Al2,  AND  A22 

N3= (1 . DOO+TNETAP*TNETAP) *A33 

-  eq.  (3.72) 

Nl= (A13*A13- (A23*TNETAF) **2) /N3 
-  eq.  (3.73) 

N2”  (A23+A13*TNETAP)  *  (Al3+A23,lrTNETAP)  /N3 

KS2-K2I+K2II 

G2=K2I-K2II 

-  eqs .  (3.74),  (3.75) 

KS1-KS2- ( (4 . D00*AXIA*AXIA-N1*N1-N2*N2) * (1 .D00+TNETAP*TNETAP) / 

.  (-2.D00*AXIA*(1.D00+TNETAP*TNETAP)+N1*(TNETAP*TNETAP-1.D00) 

.  -2.D00*N2*TNETAP)) 

-  eqs.  (3.66),  (3.69)  &  description  after  eq.  (3.60) 

Al 1«TNETAP*TNETAP/ (1 . D00+TNETAP*TNETAP) * (KS2-KS1) +N1 
-  eqs.  (3.67),  (3.70)  &  description  after  eq.  (3.60) 


Al2=-TNETAP/ (1 . DOO+TNETAP*TNETAP) * (KS2-KS1) +N2 


c  -  eqs.  (3.68),  (3.71)  &  description  after  eq.  (3.60) 

A22=l .D00/ (1 .DOO+TNETAP*TNETAP) * (KS2-KS1) -N1 

c - eq.  (A. 32) 

A21=Al2 


*  CALCULATE  SIGMA (12) 

* 

c - eq.  (3.77) 

SIGDBL=DATAN (2 . D00*Al2/ (K2 I-K2 I I-Al 1 +A22) ) 

SIGM12=.5D00*SIGDBL 

if 

*  CALCULATE  KlI  AND  Kill 

c - eq.  (3.78) 

Gl=2.D00*Al2/DSIN (SIGDBL) 

c - eq.  (3.79) 

K1I=.5D00*(KS1J-G1) 

K1 11= . 5D00* (KS1-G1) 

it 

*  CALCULATE  Ell  AND  El I I 

it 

c  -  similar  to  description  after  eq.  (3.29) 

CALL  ROTATE(ElIfx,ElIfy,ElIfz,E2Ifx,E2lfy,E2Ifz,-SIGMl2,Nfx,Nfy, 
.  Nfz) 

CALL  ROTATE (ElIIfx,ElIIfy,ElIIfz,ElIfx,ElIfy , El If z, RITAG, 

.  Nfx,Nfy,Nfz) 

if 

*  PINION 


*  CALCULATE  PRINCIPAL  DIRECTIONS  OF  THE  PINION  CUTTER 

if 

c - eq.  (3.92) 

IF (HG  .EQ.  ' L ' ) THEN 
EPIfx=SNDl*SNTAUP 
EPIfy=CSTAUP 
EPIfz=CSDl*SNTAUP 
ELSE 

EPIfx=~SNDl*SNTAUP 
EPIfy=-CSTAUP 
EPIfz=-CSDl*SNTAUP 
END  IF 

IF (DACOS (EGIf x*EPIf x+EGIfy*EPIfy+EGIfz*EPIfz) /CNST  . GT.  45 . D00) 
.THEN 

EPIfx=-EPIfx 
EPIfy— EPIfy 

EPIfz=~EPIfz 
END  IF 

CALL  ROTATE (EPIIfx,EPIIfy,EPIIfz,EPIfx, EPIfy , EPIfz, RITAG, 

'.  Nf x , Nfy ,  Nf z) 

* 

*  CALCULATE  THE  ANGLE  BETWEEN  PRINCIPAL  DIRECTIONS  OF  PINION  AND  CUTTER 
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c  -  cross  product  of  eli  and  epi 

SNSIGM=(ElIfy*EPIfz-ElIfz*EPIfy) /Nfx 

c  -  dot  product  of  eli  and  epi 

CSSIGM=ElIfx*EPIfx+ElIfy*EPIfy+ElIfz*EPIfz 
CS2SIG=2.D00*CSSIGM*CSSIGM-1.D00 
TN2SIG=2 .  D00*SNSIGM,VCSSIGM/CS2SIG 

*  CALCULATE  PRINCIPAL  CURVATURES  OF  PINION  CUTTER 

* 

c - eq.  (2.12) 

KPII=0.D00 
c - eq.  (3.94) 

KPI=K1 I*K1 II/ (K1 I*SNSIGM*SNSIGM+Kl I I *CSSIGM*CSSIGM) 

* 

*  CALCULATE  All,  A12,  AND  A22 

* 

c - eq.  (A.  31) 

Al  1=KPI-K1  I*CSSIGM*CSSIGM-K1  II*SNSIGM*SNSIGM 

c - eq.  (A.  32) 

Al2= (K1 I-K1II) *SNSIGM*CSSIGM 
c - eq.  (A.  34) 

a22=KPII-K1I*SNSIGM*SNSIGM-K1II*CSSIGM*CSSIGM 

?V 

*  CALCULATE  UP 

* 

c - eq.  (3.95) 

UP= 1 . D00/ (KPI*SNPSIP/CSPS IP) 

* 

*  CALCULATE  RP 


c 

c 

■is 


-  eq.  (3.99) 
Bmx=-Bfx*CSDl+Bfz*SNDl 

-  eq.  (3.100) 

RP=  (Bmx-t-UP5''CSPSIP)  *SNPSIP/CSPSIP 


*  CALCULATE  MPl 

is 


c - eq.  (3.107) 

Cll=(Nfy*EPIfz-Nfz*EPIfy) *CSD1+ (Nfy,cEPIfx-Nfx*EPIfy) *SND1 
C12= (Nfz*EPIfy-Nfy*EPIf z) *SNPIT1+ (Nfy*EPIf x-Nfx*EPIfy) *CSPITl 
c - eq.  (3.108) 

C22=-(Nfy*EPIIfz-Nfz*EPIIfy)*SNPITl+(Nfy’!tEPIIfx-Nfx’iEPIIfy)  *CSPIT1 
IF (HG  .EQ.  ' R ' ) THEN 
Cll— Cll 
C12— C12 
C22*-C22 
END  IF 

c - eq.  (3.119) 

T4= (Bfy*CSRTl) / (EPIIfx*CSDl-EPIIfz*SNDl) 

IF (HG  .EQ.  ' R ' ) THEN 
T4— T4 
END  IF 


141 


c  — - —  eq.  (3.120) 

T1=-CU/KPI 

T2=(A11*KPII*T4+A11*C22-A12*C12)/(A12*KPI) 

c - eq.  (3 . 122) 

Ull=Tl*EPIfx 
Ul2=T2*EPIfx+T4*EPIIfx 
U21=Tl*EPIfy 
U22=T2*EPIfy+T4*EPIIfy 
U31=Tl*EPIfz 
U32=T2*EPIfz+T4*EPII£z 
c - eq.  (3. 124) 

Vl=U21*Nfz*CSDl+U21*Nfx*SNDl-Nfy*(Ull*SNDl+U31*CSDl) 
c - eq.  (3.125) 

V2= (U22*CSD1-U21*SNPIT1) *Nf zr  (Ul 1*CSPIT1+U12*SND1+U32*CSD1-U31 
*SNPITl) *Nfy+ (U21*CSPIT1+U22*SND1) *Nf x 
c - eq.  (3.126) 

V3=U22*CSPITl*Nfx+(U32*SNPITl-Ul2*CSPITl)*Nfy-U22*SNPITl*Nfz 
IF (HG  .EQ.  1 R 1 ) THEN 
V1=-V1 
V2=-V2 
V3=-V3 
END  IF 

c - eq.  (3.132) 

Hll=-U21*CSPITl+SNDl*(Bfz*SNPITl-Bfx*CSPITl) 

c - eq.  (3.134) 

H21=Ull*CSPITl-U31*SNPITl+Bfy*SNRTl 
c - eq.  (3. 136) 

H31=U21*SNPITl+CSDl*(B£z*SNPITl~Bfx*CSPITl) 
c - eq.  (3.133) 

Hi 2= (B£z*SNPITl-Bfx*CSPITl-U22) *CSPIT1 

c - eq.  (3.135) 

H22=-(Bfy-U12*CSPITl+U32*SNPITl) 
c - eq.  (3. 137) 

H32=- (Bfz*SNPITl-Bfx*CSPITl-U22) *SNPITl 
IF (HG  .EQ.  1 R ' ) THEN 

Hll=U21*CSPITl+SNDl*(Bfz*SNPITl-Bfx*CSPITl) 

H21=-Ull*CSPITl+U31*SNPITl+Bfy*SNRTl 

H31=-U21*SNPITl+CSDl*(Bfz*SNPITl-Bfx*CSPITl) 

H12= (Bfz*SNPITl-Bf x*CbPITl+U22) *CSPIT1 
H22=-(Bfy+Ul2*CSPITl-U32*SNPITl) 

H32=- (Bfz*SNPITl-Bf x*CSPITl+U22) *SNPIT1 
END  IF 

c - eq.  (3.139) 

Fl=Nf x*Hl l+Nfy*H21+Nfz*H31 

c - eq.  (3. 140) 

F2=Nfx*H12+Nfy*H22+Nfz*H32 

c - eq.  (3.145) 

Y2=A12*(2.D00*KPI*T1*T2-V2-F1) 

Y3=Al2* (KPI*T2*T2+KPII*T4*T4-V3-F2) - (KPI*T2+C12) * (KPII*T4+C22) 
MP1— Y3/Y2 


*  CALCULATE  EM  AND  LM 

* 
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C - eq.  (3.122) 

VTlPf x=Ul 1*MP1+U12 
VTlPfy=U21*MPl+U22 
VTlPfz=U31*MPl+U32 

c - eq.  (3.111) 

IF (HG  .EQ.  ' L ' ) THEN 
EM= (Bfy*CSPITl-VTlPfx) / (MP1*SND1) +Bfy 
LM«(Bfx*CSPITl-Bfz*SNPITl+VTlPfy)  /MPl+Bfx*SNDl+Bfz*CSDl 
ELSE 

EM= (-Bfy*CSPITl-VTlPfx) / (MP1*SND1) -Bfy 
LM=(Bfx*CSPITl-Bfz*SNPITl-VTlPfy) /MPl+Bfx*SNDl+Bfz*CSDl 
END  IF 

* 

*  CALCULATE  SP  AND  QP 

Vc 

C  -  eqs .  (3.150),  (3.151) 

IF (HG  .EQ.  ' L ' ) THEN 
21— Bfy+EM-UP*SNPSIP*SNTAUP 
ELSE 

Zl=Bfy+EM+UP*SNPSIP*SNTAUP 
END  IF 

Z2=Bfx*SNDl+Bfz*CSDl-LM-UP*SNPSIP*CSTAUP 
SP=DSQRT (Z1*Z1+Z2*Z2) 

QP=DATAN (Z1/Z2) 

IF (HG  .EQ.  ' L ' ) THEN 
THETAP=TAUP-QP 
ELSE 

THETAP=TAUP+QP 
END  IF 

* 

*  CONVERT  RADIAN  TO  DEGREE 

* 

PSIGDG=PSIG/CNST 

PSIPDG=PSIP/CNST 

TAUGDG=TAUG/CNST 

TAUPDG=TAUP/CNST 

QGDG=QG/CNST 

QPDG=QP/CNST 

THEGDG=THETAG/CNST 

THEPDG«THETAP/CNST 

PHIGDG«PHIGO/CNST 

i< 

*  OUTPUT 

* 

WR I TE (72 , 1 0000) PS IGDG , PS IPDG , RG , RP , TAUGDG , TAUPDG , SG , SP , QGDG , QPDG , 
.  MG2 , MP 1 , EM , LM , UG , UP , THEGDG , THEPDG, PHIGDG 
10000  FORMAT (IX, 'PSIGDG  = '  ,G20. 12 , 12X,  ' PSIPDG  =\G20.12,/ 

, IX, ' RG  *' ,G20. 12, 12X, 'RP  =',G20.12,/ 

, IX, 'TAUGDG  =' ,G20. 12, 12X, 'TAUPDG  =',G20.12,/ 

, IX, ' SG  “ ' ,G20. 12 , 12X, ' SP  =',G20.12,/ 

, IX, ’QGDG  ,G20.12,12X, 'QPDG  -'.G20.12,/ 

, IX, ' MG2  »' ,G20.12,12X, 'MP1  «',G20.12,/ 

, IX, 'EM  * ' ,G20. 12, 12X, ' LM  -',G20.12,/ 


143 


, IX, ' UG  = 1 ,G20. 12, 12X, 'UP  =’,G20.12 ,/ 

, IX, ’ THETAGDG  = ' , G20 . 1 2 , 1 2X , ' THETAPDG  =',G20.12,/ 
, IX, 1 PHIGODG  =  ' ,G20.12, 12X,/) 

* 

*  TCA 

* 

IF (I  .EQ.  1)THEN 

TPAR(1)=RG*CSPSIG/SNPSIG*CSPSIG 

TPAR (2) = (MG2-SNRT2) *CSPSIG 

TPAR (3) =CSRT2*SNPSIG 

TPAR (4) =RG*CSPSIG/SNPSIG 

TPAR (5) =CSD2*SNPSIG 

TPAR (6) =SND2*CSPSIG 

TPAR (7) =SND2*SNPSIG 

TPAR (8) =CSD2*CSPSIG 

TPAR (9)=RP*CSPSIP/SNPSIP*CSPSIP 

TPAR (10)= (MP1-SNRT1) *CSPSIP 

TPAR (1 1) =CSRTl*SNPSIP 

TPAR (12) =SNRTl*CSPSIP 

TPAR (13) =RP*CSPSIP/SNPSIP 

TPAR (14)=CSD1*SNPSIP 

TPAR  (15)  =SNDP'CCSPSIP 

TPAR (16) =SND1*SNPSIP 

TPAR (17) =CSD1*CSPSIP 

TPAR (18) =LM*SNDl 

TPAR (19) =LM*CSDl 

* 

PHIP=0.D00 
PHI21=0.D00 
PHI11=0.D00 
CSPH1 l=DCOS (PHI 11) 

SNPH1 1=DSIN (PHI 11) 

* 

TX (1) =PHIP 
TX (2) =THETAP 
TX(3)=PHI21 
TX(4) =PHIG0 
TX(5)=THETAG 

CALL  NONLIN (TCN , 14, 5 , 100 , TX, TF , TFl , 1 ,D~5 , AZS , IPVT, WORK) 
PHIP0=TX(1) 

THEP0=TX (2) 

PHI210=TX(3) 

PHIG0=TX (4) 

THEG0=TX (5) 

* 

TX (1) =PHIP0 
TX (2) =THEP0 
TX(3) =PHI210 
TX(4)=PHIG0 
TX(5) “THEGO 

D1HI11=18.DOO/36.DOO*CNST 

* 

DO  100  I J*1 ,60 
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CSPHll=DCOS (PHIl 1) 

SNPHl 1=DSIN (PHIl 1) 

CALL  NONLIN (TCN ,  1 4 , 5 , 1 00 , TX , TF , TF 1 , 1 . D~5 , AZS , IPVT , WORK) 
PHIP=TX(1) 

THETAP=TX(2) 

PHI21=TX (3) 

PHIG=TX (4) 

THETAG=TX (5) 

ERROR= ( (PHI21*36 . D02-PHI210*36 . D02) -PHI 1 1*36 . D02*TNl/TN2) /CNST 

* 

CALL  PRING2 (KS2 , G2 , E2If x , E2If y , E2lf z, E2I If x , E2llf y , E2I If z) 

CALL  PRINP1 (KS1 ,G1 ,ElIfx,ElIfy,ElIfz,ElIIfx,ElIIfy,ElIIfz) 

CALL  SIGAN2 (E2Ifx,E2lfy,E2Ifz,E2IIfx,E2lIfy,E2lIfz,ElIfx,ElIfy, 
Ellfz, CS2SIG, SN2SIG, SIGM12) 

CALL  EULER (KS2 , G2 , KS1 , G1 , CS2SIG, SN2SIG , IEU) 

IF(IEU  .EQ.  Dthen 
WRITE (72,*) 'THERE  IS  INTERFERENCE' 

GO  TO  88888 
END  IF 

CALL  ELLIPS (KS2 , G2 , KS 1 , G1 , CS2SIG, SN2SIG, DEF , ALFAl , 

AXISL, AXISS,ElIfx,ElI£y ,ElIfz) 

* 

CALL  PF(B2px,B2py,B2pz,B2fx,B2fy,B2fz) 

* 

*  XBf ,  YBf ,  and  ZBf  is  the  direction  of  the  long  axis  of  the  ellipse 

* 

CALL  PF (XBp , YBp , ZBp , XBf , YBf , ZBf ) 

ELBlpx=B2px+XBp 
ELB lpz=B2pz+ZBp 
ELB2px=B2px~XBp 
ELB2pz=B2pz-ZBp 

* 

IF (I  .EQ.  1)THEN 

WRITE (79 , 9000) I J , PHI 1 1/CNST , I J , ERROR 
WRITE (78 , 8000) I J , B2pz, I J , B2px 
WRITE (77 , 7000) ELBlpz, ELBlpx , ELB2pz, ELB2px 
ELSE 

WRITE (89 , 9000) I J , PHI 1 1/CNST , I J, ERROR 
WRITE (88,8000) IJ,B2pz, IJ,B2px 
WRITE (87 , 7000) ELBlpz, ELBlpx, ELB2pz, ELB2px 
END  IF 

* 

PHIl 1“PHI 11+DlHIll 

* 

100  CONTINUE 


PHI11-0.D00 
CSPH1 l“DCOS (PHI 1 1) 
SNPHl 1-DSIN (PHI 11) 
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TX(1)=PHIP0 
TX(2)-THEP0 
TX(3) =PHI210 
TX(A) “PHIGO 
TX(5) =THEGO 

DlHI 1 1 = 18 . DOO/36 . DOO*CNST 

it 

DO  200  IJ-1,60 
CSPH1 1=DC0S (PHI 11) 

SNPH1 1=DS IN (PHI 11) 

CALL  NONLIN (TCN, 1A, 5 , 100 , TX,TF, TF1 , 1 . D-5 , AZS, IPVT, WORK) 
PHIP=TX(1) 

THETAP=TX(2) 

PHI21=TX (3) 

PHIG=TX(A) 

THETAG=TX(5) 

ERROR= ( (PHI21*36 . D02-PHI210*36 . D02) -PHI 1 1*36 .D02*TN1/TN2) /CNST 

it 

CALL  PRING2 (KS2 ,G2 , E2If x , E2lfy , E2lfz, E2IIfx ,E2IIfy, E2llfz) 

CALL  PRINP1 (RSI, Gl, El If x, El If y, El If z, El  I If x, El Ilf y, Ell If z) 

CALL  SIGAN2 (E2Ifx ,E2lfy , E2lfz, E2IIfx, E2IIfy , E2IIf z, Ellf x ,ElIfy 
ElIfz,CS2SIG,SN2SIG,SIGMl2) 

* 

CALL  EULER (KS2 , G2 , KS 1 , Gl , CS2S IG , SN2SIG , IEU) 

IF (IEU  .EQ.  1) THEN 
WRITE (72,*) ’THERE  IS  INTERFERENCE’ 

GO  TO  88888 
END  IF 

* 

CALL  ELLIPS (KS2 , G2 , KS 1 , Gl , CS2S IG , SN2SIG, DEF , ALFAl , 
AXISL,AXISS,ElIfx,ElIfy,ElIfz) 

Vc 

CALL  PF(B2px,B2py,B2pz,B2fx,B2fy, B2fz) 

it 

*  XBf,  YBf,  and  ZBf  is  the  direction  of  the  long  axis  of  the  ellipse 

* 

CALL  PF (XBp , YBp , ZBp , XBf , YBf , ZBf) 

ELBlpx=B2px+XBp 

ELBlpz“B2pz+ZBp 

ELB2px=B2px-XBp 

ELB2pz*B2pz_ZBp 

* 

IF (I  .EQ.  1)THEN 

WRITE (79, 9001) I J,PHI11/CNST, I J ,ERROR 
WRITE (78, 8001) I J,B2pz, I J,B2px 
WRITE (77 , 7000)  ELB lpz , ELBlpx , ELB2pz, ELB2px 
ELSE 

WRITE (89, 9001) IJ,PHI11/CNST, IJ, ERROR 
WRITE (88,8001) IJ,B2pz, IJ,B2px 
WRITE (87 , 7000) ELBlpz, ELBlpx , ELB2pz, ELB2px 
END  IF 

* 

PHI11-PHI11-D1HI11 
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* 


200  CONTINUE 
* 

END  IF 

* 

99999  CONTINUE 
88888  CONTINUE 

7000  FORMAT (6X, ' EX ( 1 ) = ' , F9 .6 , / , 6X, 1  EY  (1)  =  ' ,  F9 . 6 ,  / , 

6X,  'EX (2)  = 1  ,  F9.6 ,  /  ,  6X,  'EY  (2)  = ' , F9.6, /, 

6X , ' CALL  CURVE (EX,EY,2,0) ') 

8000  FORMAT (6X, ' XO ( ' , 12 , ' ) = ' , F9. 6, / , 6X, ' YO ( ' , 12, ’ ) = 1 , F9. 6) 

8001  FORMAT (6X, 'Xl ( ' , 12, ' ) = ' , F9.6 , / ,6X, ' Y1 (' , 12, ' )« ' , F9.6) 

9000  FORMAT (6X, 'XO ( ' , 12, 1 ) = ’ , F7. 3, / , 6X, ' YO ( ' , 12 , ' ) = ' , F8. 3) 

9001  FORMAT (6X, ' Xl ( ' , 12 , ' ) = ' , F7 . 3, / , 6X, ' Y1 ( ' , 12, ' ) = 1 , F8 . 3) 

END 

* 

*  FOR  THE  DETERMINATION  OF  MEAN  CONTACT  POINT 

* 

SUBROUTINE  PCN(X,F,NE) 

IMPLICIT  REAL*8(A-H,K,M-Z) 

CHARACTER*8  HG 
INTEGER  NE 

REAL*8  X (NE) , F (NE) , PAR (6) 

COMMON/P 1 /PAR 
COMMON/AO/HG 

COMMON/ Al/pll,pl2,pl3,p21,p22,p23,p31,p32,p33, pi, p2,p3 
C0MM0N/A2/SG , CSRT2 , QG , SNPS IG , CSPS IG 
COMMON /A3/TND1 , TND2 , RITAG 
THETAG=X (1) 

CSTHEG=DCOS (THETAG) 

SNTHEG=DSIN (THETAG) 

IF  (HG  .EQ.  ' L ' ) THEN 

UG=PAR (1) -SG* (PAR (2) *SNTHEG+PAR (3) ) / (CSRT2*DSIN (THETAG-QG) ) 
ELSE 

UG=PAR (1) -SG* (PAR (2) *SNTHEG+PAR (3) ) / (CSRT2*DSIN (THETAG+QG) ) 
END  IF 

Bcx-PAR (4) -UG*CSPSIG 
Bcy“UG*SNPSIG*SNTHEG 
Bcz=UG*SNPSIG*CSTHEG 
CALL  TRCOOR (Bpx,Bpy,Bpz, 

.  pll,pl2,pl3,p21, p22, p23 ,p31 , p32, p33 ,pl ,p2 , p3 , 

.  Bcx,Bcy,Bcz) 

XM=Bpz*(TNDl-TND2) /2.D00 

F(l)=Bpx-XM 

END 

* 

*  FOR  THE  DETERMINATION  OF  COORDINATES  AND  NORMALS  OF  CONTACT  POINTS 

* 

SUBROUTINE  TCN (TX,TF,NE) 

IMPLICIT  REAL*8(A-H,K,M-Z) 

INTEGER  NE 
CHARACTER *8  HG 
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REAL*8  TX(NE) ,TF(NE) ,TPAR(19) , LM 

COMMON/AO/HG 

COMMON/ Tl/TPAR 

COMMON/A2/SG, CSRT2 , QG , SNPSIG , CSPS IG 
COMMON/ A4/CSD2 , SND2 , CSPIT2 , SNPIT2 

COMMON/B1/CSPH1 1 , SNPH1 1 , SP , EM, LM, CSRTl , CSD1 , SND1 , CSPSIP , SNPSIP 

COMMON/B2/CSPIT1 , SNPITl ,MP 1 , MG2, QP 

COMMON/B3/B2fx,B2fy,B2fz 

COMMON/B4/CSPH2 , SNPH2 , CSPH2 1 , SNPH21 

COMMON /Cl/M G , CST AUG , SNTAUG 

COMMON/C2/N2fx,N2fy,N2fz 

COMMON/DI/UP , CSTAUP , SNTAUP 

COMMON/F1/PHIGO 

COMMON /G1 /DA, DV 

PHIP=TX (1) 

THETAP=TX(2) 

PHI21“TX(3) 

PHIG=TX (4) 

THETAG=TX (5) 

CSPHIP*DCOS (PHIP) 

SNPHIP-=DSIN(PHIP) 

CSTHEP=DCOS (THETAP) 

SNTHEP=DSIN (THETAP) 

CSPH21=DCOS (PHI21) 

SNPH21=DSIN (PHI21) 

CSPHIG=DCOS (PHIG) 

SNPHIG-DSIN(PHIC) 

CSTHEG“DCOS (THETAG) 

SNTHEG=DSIN (THETAG) 

PHI2* (PHIG-PHIGO) /MG2 
PHI 1=PHIP/MP1 
CSPH2*DCOS (PHI2) 

SNPH2=DSIN (PHI2) 

CSPHl=DCOS (PHI1) 

SNPH1*DSIN(PHI1) 

IF (HG  .EQ.  ' L ' ) THEN 

TAUP”THETAP+QP~PHIP 

ELSE 

TAUP«THETAP-QP+PHIP 
END  IF 

CSTAUP-DCOS (TAUP) 

SNTAUP-DSIN(TAUP) 

IF (HG  .EQ.  ' L ' ) THEN 

TAUG-THETAG-QG+PHIG 

ELSE 

TAUG*THETAG+QG-PHIG 
END  IF 

CSTAUG-DCOS (TAUG) 

SNTAUG- DS IN (TAUG) 

CSQPHP-DCOS (QP-PHIP) 

SNQPHP-DSIN (QP-PHIP) 

CSQPHG-DCOS (QG-PHIG) 

SNQPHG-DSIN (QG-PHIG) 
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*  GEAR 

* 

*  SURFACE  EQUATIONS 

* 

IF (HG  .EQ.  ' L ' ) THEN 

UG=TPAR (1) -SG* (TPAR (2) *SNTHEG-SNQPHG*TPAR (3) ) / (CSRT2*SNTAUG) 
B2py=UG*SNPSIG*SNTAUG-SG*SNQPHG 
ELSE 

UG-TPAR (l)-SG* (TPAR (2) *SNTHEG+SNQPHG*TPAR (3) ) / (CSRT2*SNTAUG) 
B2py=UG*SNPSIG*SNTAUG+SG*SNQPHG 
END  IF 

B2px=CSD2* (TPAR (A) -UG*CSPSIG) -SND2* (UG*SNPSIG*CSTAUG+SG*CSQPHG) 
B2pz~SND2* (TPAR (A) -UG*CSPSIG) +CSD2* (UG*SNPSIG*CSTAUG+SG*CSQPHG) 
N2px=TPAR (5) -TPAR (6) *CSTAUG 
N2py'CSPSIG*SNTAUG 
N2pz=TPAR (7) +TPAR (8) *CSTAUG 

* 

*  [Mwp]  =  [Mwa]  [Map] 

* 

IF (HG  .EQ.  ' L ' ) THEN 

CALL  COMBI (wpl 1 , wpl2 , wpl3 , wp21 , wp22 , wp23 , wp31 , wp32 , wp33 , 

.  wpl ,wp2,wp3, 

.  CSPH2 , SNPH2 , 0 . D00 , -SNPH2 , CSPH2 , 0 . DOO , 0 . DOO , 0 . DOO , 1 . DOO , 

.  0. DOO, 0. DOO, 0. DOO, 

.  CSPIT2, O.DOO, SNPIT2, O.DOO, 1 .DOO, 0.D00,~SNPIT2, 0.D00,CSPIT2, 

.  O.DOO, O.DOO, O.DOO) 

ELSE 

CALL  COMBI (wpll ,wpl2,wpl3,wp21 ,wp22,wp23,wp31 ,wp32,wp33, 

.  wpl,wp2,wp3, 

.  CSPH2 ,  -SNPH2 , 0 .  DOO ,  SNPH2 ,  CSPH2 , 0 .  DOO ,  0 .  DOO ,  0 .  DOO ,  1 .  DOO , 

.  O.DOO, O.DOO, O.DOO, 

.  CSPIT2, 0. DOO, SNPIT2, O.DOO, 1 .DOO,O.DOO, -SNPIT2, O.DOO,CSPIT2, 

.  O.DOO, O.DOO, O.DOO) 

END  IF 

CALL  TRCOOR(B2wx,B2wy,B2wz, 

.  wpll , wpl 2 , wpl 3, wp21 , wp22 , wp23 , wp31 , wp32 , wp33, wpl , wp2, wp3 , 

.  B2px,B2py,B2pz) 

CALL  TRCOOR (N2 wx , N2wy , N2 wz , 

.  wp 1 1 , wp 12 , wpl 3 , wp2 1 , wp22 , wp23 , wp 3 1 , wp32 , wp33 , 0 . DOO , 0 . DOO , 0 . DOO , 

.  N2px,N2py,N2pz) 

•k 

*********************************************************************** 

* 

*  [Mfw]  =  [Mf a]  [Maw] 

fall-CSPIT2 

fal2*0.D00 

fal3=-SNPIT2 

fa21=0.D00 

fa22*l .DOO 

f a23*0. DOO 

fa31«SNPIT2 
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fa32=0.D00 
fa33=CSPIT2 
fal=0. dOO 
fa2=0. dOO 
f a3=0. dOO 

IF(HG  .EQ.  ' L ' ) THEN 

CALL  COMBI (f wl 1 , f wl2 , fwl3 , f w21 , f w22 , fw23 , f w31 , fw32 , f w33 , 

.  fwl,fw2,fw3, 

.  CSPIT2 , O.DOO, -SNPIT2 , 0. DOO , 1 . DOO , 0. DOO, SNPIT2, 0.D00.CSPIT2, 

.  O.DOO, O.DOO, O.DOO, 

.  CSPH2 1 , -SNPH2 1,0. DOO , SNPH2 1 , CSPH21 , 0. DOO , 0 . DOO , 0 . DOO , 1 . DOO , 

.  O.DOO, O.DOO, O.DOO) 

ELSE 

CALL  COMBI (fwl 1 , fwl2, fwl3 , fw21 , fw22 , fw23 , fw31 , fw32, fw33, 

.  fwl,fw2,fw3, 

.  CSPIT2, 0. DOO, -SNPIT2, O.DOO, 1.000,0. DOO, SNPIT2, O.DOO, CSPIT2, 

.  0 .  DOO ,  0 .  DOO ,  0 .  DOO , 

.  CSPH2 1 , SNPH2 1 , 0 . DOO , -SNPH2 1 , CSPH2 1,0. DOO , 0 . DOO , 0 . DOO , 1 . DOO , 

.  O.DOO, O.DOO, O.DOO) 

END  IF 

CALL  TRCOOR (B2fx,B2fy,B2fz, 

.  fwll,fwl2,fwl3,fw21, fw22, fw23 , fw31 , fw32 , fw33 , fwl , fw2, fw3 , 

.  B2wx , B2wy , B2wz) 

CALL  TRCOOR (N2f x , N2fy , N2f z, 

.  fwl 1 , fwl 2, fwl 3, fw21 , fw22, fw23, fw31 , fw32, fw33, O.DOO, O.DOO, O.DOO, 
.  N2wx,N2wy,N2wz) 

* 

*  PINION 

* 

*  SURFACE  EQUATIONS 

* 

IF (HG  .EQ.  ' L ' ) THEN 

UP=TPAR  (9)  -  (SP*  (TPAR  (10)  *SNTHEP+SNQPHP*TPAR (1 1)  )  -EM*  (TPAR  (11)  + 
TPAR (12) *CSTAUP) -LM*TPAR (12) *SNTAUP) / (CSRTl*SNTAUP) 
Blpy=UP*SNPSIP*SNTAUP+SP*SNQPHP-EM 
ELSE 

UP-TPAR (9) - (SP* (TPAR (10) *SNTHEP~SNQPHP*TPAR (11)) +EM* (TPAR (11)+ 
TPAR (12) *CSTAUP)  -LM*TPAR (12) *SNTAUP) / (CSRTl*SNTAUP) 
Blpy=UP*SNPSIP*SNTAUP-SP*SNQPHP+EM 
END  IF 

Blpx=CSDl* (TPAR (13) -UP*CSPSIP) -SNDl* (UP*SNPSIP*CSTAUP+SP* 

CSQPHP) -LM*SND1 

Blpz=SNDl* (TPAR (13) -UP*CSPSIP) +CSD1* (UP*SNPSIP*CSTAUP+SP* 

CSQPHP) +LM*CSD1 

Nlpx=- (TPAR (14) -TPAR (15) *CSTAUP) 

Nlpy=-CSPSIP*SNTAUP 

Nip z=- (TPAR (16) +TPAR (17) *CSTAUP) 

* 

*  [Mwp]  =  [Mwa]  [Map] 

* 

IF (HG  .EQ.  ' L ' ) THEN 

CALL  COMBI (wpl 1 , wpl2 , wpl3, wp21 , wp22, wp23, wp31 , wp32, wp33 , 

.  wpl,wp2,wp3, 
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.  CSPHl , -SNPHl , O.DOO, SNPH1 ,CSPH1 ,0. DOO, O.DOO, O.DOO, 1 .DOO, 

.  O.DOO, O.DOO, O.DOO, 

.  CSPIT1, 0. DOO, SNPITl.O. DOO, 1. DOO, O.DOO, -SNPIT1, O.DOO, CSPIT1, 

.  O.DOO, O.DOO, O.DOO) 

ELSE 

CALL  COMBI (wpl 1 , wpl2 , wpl3 , wp21 , wp22 , wp23 , wp31 , wp32 , wp33, 

.  wpl,wp2,wp3, 

.  CSPHl , SNPHl , 0 . DOO , -SNPH1 , CSPH 1 , 0 . DOO , 0 . DOO , 0 . DOO , 1 . DOO , 

.  O.DOO, O.DOO, O.DOO, 

.  CSPIT1, 0. DOO, SNPITl.O. DOO, 1. DOO, O.DOO, -SNPITl, O.DOO, CSPIT1, 

.  O.DOO, O.DOO, O.DOO) 

END  IF 

CALL  TRCOOR (B 1 wx , B 1 wy , B 1 wz , 

.  wpll,wpl2,wpl3,wp21,wp22,wp23,wp31 , wp32, wp33,wpl ,wp2,wp3, 

.  Blpx,Blpy,Blpz) 

CALL  TRCOOR (Nlwx,Nlwy,Nlwz, 

.  wpll , wpl2, wpl3 , wp21 , wp22 , wp23 , wp31 , wp32 , wp33 , O.DOO, O.DOO, O.DOO, 
.  Nlpx,Nlpy,Nlpz) 

* 

**************************************************************** 

* 

*  [Mpw]  =  [Mpa]  [Maw] 

* 

IF (HG  .EQ.  ' L ' ) THEN 

CALL  COMBI (pwl 1 , p w 1 2 , p w 1 3 , p w2 1 , pw22 , pw23 , pw31 , pw32 , pw33 , 

.  pwl , pw2 , pw3 , 

.  CSPITl , 0. DOO, -SNPITl , O.DOO, 1 . DOO, 0. DOO, SNPITl , O.DOO, CSPIT1 , 

.  O.DOO, O.DOO, O.DOO, 

.  CSPHl 1 , SNPHl 1 , O.DOO, -SNPHl 1 , CSPHl 1 , O.DOO, O.DOO, O.DOO, 1 .DOO , 

.  O.DOO, O.DOO, O.DOO) 

ELSE 

CALL  COMBI (pwl 1 , pwl 2 , pwl 3 , pw21 ,pw22, pw23 ,pw31 , pw32 , pw33 , 

.  pwl,pw2,pw3, 

.  CSPITl, O.DOO, -SNPITl.O. DOO, 1. DOO, O.DOO, SNPITl, O.DOO, CSPITl, 

.  O.DOO, O.DOO, O.DOO, 

.  CSPHl 1, -SNPHl 1,0. DOO, SNPHl 1, CSPHl 1,0. DOO, 0. DOO, 0. DOO, 1. DOO, 

.  O.DOO, O.DOO, O.DOO) 

END  IF 

C/LL  TRCOOR (Blpx,Blpy,Blpz, 

.  pwl 1 , pwl 2 , pwl3 , pw21 , pw22 , pw23 , pw3 1 , pw32 , pw33 , pwl , pw2 , pw3 , 

.  Blwx,Blwy,Blwz) 

CALL  TRCOOR (Nlpx,Nlpy,Nlpz, 

.  pwl 1 , pwl 2 , pwl3 ,pw21 , pw22,pw23 ,pw31 , pw32 , pw33 , O.DOO, O.DOO, O.DOO, 
.  Nlwx,Nlwy,Nlwz) 

Blfx— Blpx+DA*SNPIT1 

Blfy—  Blpy+DV 

Blfz-Blpz+DA*CSPIT1 

Nlfx”~Nlpx 

Nlfy—Nlpy 

Nlfz-Nlpz 

TF(l)«B2fx-Blfx 

TF (2) *B2f y-Bl fy 

TF(3)-B2fz-Blfz 
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TF (A) =N2f x-NlEx 
TF (5) =N2fy-Nlfy 
END 

Vc 

*  FOR  THE  DETERMINATION  OF  GEAR  PRINCIPAL  CURVATURES  AND  DIRECTIONS 

it 

SUBROUTINE  PRING2 (KS2 , G2 , E2I f x , E2l£y , E2lf z, E2IIf x , E2I If y , E2I If z) 
IMPLICIT  REAL*8(A-H,K,M-Z) 

CHARACTER *8  HG 
COMMON/AO/HG 

COMMON/A2/SG.CSRT2 , QG, SNPSIG, CSPSIG 
COMMON/ A3 /TND1 , TND2 , RITAG 
COMMON / A4 / C  SD2 , SND2 , CSP IT2 , SNP IT2 
COMMON/B2/CSPIT1 , SNPITI ,MP1 ,MG2,QP 
COMMON/ B3/Bfx,Bfy,B £2 
COMMON/B4/CSPH2 , SNPH2 , CSPH2 1 , SNPH2 1 
COMMON/C 1 /UG , CSTAUG , SNTAUG 
COMMON/C2/Nfx,Nfy,Nfz 
KGI=-CSPSIG/ (UG*SNPSIG) 

KGII=O.DOO 

EGIfx=SND2*SNTAUG 

EGIfy=CSTAUG 

EGIfz=-CSD2*SNTAUG 

CALL  ROTATE (EGI If x, EGIIf y, EGI If z.EGIfx.EGIfy.EGIfz, RITAG, 

.  Nfx,Nfy,Nfz) 


* 

*  CALCULATE  W2G 

■it 

IF (HG  .EQ.  ' L ' ) THEN 
W2fx=-SNPIT2 
WGf  x=-MG2’'CSD2 
W2fy=0.D00 
WGfy=O.DOO 
W2fz=CSPIT2 
WGfz=-MG2*SND2 
ELSE 

W2fx*SNPIT2 
WGf x=MG2*CSD2 
W2fy'O.DOO 
WGfy'O.DOO 
W2fz«-CSPIT2 
WGfz=MG2*SND2 
END  IF 


W2Gfx=W2fx-WGfx 

W2Gfy=W2fy-WGfy 

W2Gfz=W2fz-WGfz 

* 

*  CALCULATE  VT2,  VTG,  AND  VT2G 

* 


CALL  CROSS (VT2f x , VT2f y , VT2f 2, W2f x , W2fy , W2f 2, Bf x , Bf y , Bf z) 
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CALL  CROSS (VTGfx, VTGfy , VTGf z, WGf x , WGfy , WGf z, Bfx, Bfy, Bfz) 

VT2Gf x=VT2f x-VTGf x 
VT2Gfy=VT2£y-VTGfy 
VT2Gfz=VT2fz-VTGfz 

* 

*  CALCULATE  V(2G)GI  AND  V(2G)GII 

Vc 

CALL  DOT (VGI , EGIf x , EGIfy, EGI f z , VT2Gfx , VT2Gfy, VT2Gf z) 

CALL  DOT (VGII ,EGIIfx, EGIIfy ,EGIIfz, VT2Gfx, VT2Gfy, VT2Gfz) 

* 

*  CALCULATE  A13,A23,A33 

* 

CALL  DET (DETI, W2Gf x, W2Gf y, W2Gf z, Nfx,Nfy,Nfz, EGIf x, EGIfy, EGIf z) 
A13=-KGI*VGI-DETI 

CALL  DET (DETII , W2Gf x , W2Gf y , W2Gf z , Nf x , Nf y , Nf z, EGI If x , EGIIfy , EGIIfz) 
A23=-KGII*VGII-DETII 

CALL  DET(DET3,Nfx,Nfy,Nfz,W2Gfx,W2Gfy,W2Gfz,VT2Gfx,VT2Gfy,VT2Gfz) 
CALL  CROSS (Cx , Cy , Cz , W2f x , W2  f y , W2  f z , VTGf  x , VTGfy , VTGf z) 

CALL  CROSS (Dx , Dy , Dz , WGfx , WGfy , WGf z , VT2f x , VT2f y , VT2f z) 

CALL  DOT (DET45 , Nf x , Nf y , Nf z , Cx~Dx , Cy-Dy , Cz"Dz) 
A33=KGI*VGI*VGI+KGII*VGII*VGII-DET3-DET45 

* 

*  CALCULATE  SIGMA 

* 

P=A23*A23~A13*A13+ (KGI-KGII) *A33 
S I GDB  L= DAT AN (2 . DOO*Al3*A23/P) 

SIGMA-0. 5D00*SIGDBL 

* 

*  CALCULATE  K2I  AND  K2II 

* 

T1=P/ (a33*DCOS (SIGDBL) ) 

T2-KGI+KGI I- (a13*A13+A23*A23) /A33 
K2I= (T1+T2) /2.D00 
K2II=(T2-T1)/2.D00 

* 

*  CALCULATE  E2I  AND  E2II 

* 

CALL  ROTATE (E2lf x, E2If y, E2lf z, EGIf x, EGIfy, EGIf z, -SIGMA, Nfx,Nfy, 

.  Nf z) 

CALL  ROTATE (E2lIfx,E2I If y,E2I If z,E2lfx,E2Ify,E2lfz,RITAG, 

.  Nfx,Nfy,Nfz) 

END 

* 

*  FOR  THE  DETERMINATION  OF  PINION  PRINCIPAL  CURVATURES  AND  DIRECTIONS 

* 

SUBROUTINE  PRINP1 (KS1 , G1 , El If x , El I f y , El If z, El Ilf x , El Ilf y , El I If z) 
IMPLICIT  REAL*8(A-H,K,M-Z) 

REAL*8  TPAR (19) , LM 
CHARACTER *8  HG 
COMMON/T1/TPAR 
COMMON/AO/HG 

COMMON/ A3/TND1 , TND2 , RITAG 

COMMON/B 1/CSPH1 1 , SNPH1 1 , SP , EM , LM , CSRT1 , CSD1 , SND1 , CSPSIP , SNPSIP 
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C0MM0N/B2/CSPIT1,SNPIT1,MP1,MG2,QP 
C0MM0N/B3/Bfx ,Bfy , Bfz 
COMMON /C2/Nfx,Nfy,Nfz 
COMMON/DI/UP , CSTAUP , SNTAUP 
KPI=CSPSIP/ (UP*SNPSIP) 

KPII=0. DOO 

EP I f x=SNDl *SNTAUP 

EPIfy=CSTAUP 

EP  I  f  z=CSDl  ’'SNTAUP 

CALL  ROTATE (EPII£x,EPI If y,EPIIfz,EPIfx,EPIfy,EPIfz,RITAG, 
.  Nfx.Nfy ,Nfz) 

tfc 

*  CALCULATE  W1P 

j< 

IF (HG  .EQ.  ' L ' ) THEN 
Wlfx=-SNPIT1 
WPfx=-MPl*CSDl 
Wl f y=0 . DOO 
WPf y=0 . DOO 
Wlfz=~CSPITl 
WPf z=MPl*SNDl 
ELSE 

Wlfx=SNPITl 
WPfx=MPl*CSDl 
Wl f y=0 . DOO 
WPfy=O.DOO 
Wlfz=CSPITl 
WPfz=-MPl*SNDl 
END  IF 

WlPfx=Wlfx-WPfx 
WlPfy=Wl fy-WPfy 
WIPf z=Wl f z-WPf z 

* 

*  CALCULATE  VT2 ,  VTG,  AND  VT2G 


CALL  CROSS (VTlfx,VTlfy,VTlfz,Wlfx,Wlfy,Wlfz,Bfx,Bfy,Bfz) 
CALL  CROSS (VTP 1 f x, VTP 1 f y, VTP 1 fz, WPf x, WPf y, WPf z,Bfx,Bfy, Bfz) 
IF (HG  .EQ.  ' L ' ) THEN 

CALL  CROSS (VTP2fx,VTP2fy,VTP2fz,TPAR (18) ,EM,TPAR(19) , 

WPf x , WPf y , WPf z) 

ELSE 

CALL  CROSS (VTP2f x , VTP2fy , VTP2fz, TPAR (18) , -EM, TPAR (19) , 

WPf x , WPf y , WPf z) 

END  IF 

VTPfx=VTPlfx+VTP2fx 

VTPfy=VTPlfy+VTP2fy 

VTPfz=VTPlfz+VTP2fz 

VTlPfx=VTlfx-VTPfx 

VTlPfy=VTlfy-VTPfy 

VTlPfz=VTlfz-VTPfz 

CALL  DOT(VPI,EPIfx,EPIfy,EPIfz, VTlPfx, VTIPfy , VTIPfz) 

CALL  DOT(VPII,EPIIfx,EPIIfy,EPIIf  ^TlPf x , VTlPfy , VTIPfz) 
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*  CALCULATE  A13 , A23 , A33 

Vc 

CALL  DET (DETI.WlPfx, WlPfy, WlPfz,Nfx,Nfy,NfztEPIfx, EPIfy,EPIfz) 
Al3=-KPI*VPI-DETI 

CALL  DET (DET I I ,WlPfx,WlPfy,WlPfz,Nfx,Nfy,Nfz, 
EPIIfx,EPIIfy,EPIIfz) 

A23=-KPII*VPII-DETII 

CALL  DET (DET3,Nfx,Nfy,Nfz,WlPfx, WlPfy.WlPfz, 
VTlPfx,VTlPfy,VTlPfz) 

CALL  CROSS (Cx , Cy , Cz, W1 f x , 0 . D00 , W1 f z , VTPf x , VTPf y , VTPf z) 

CALL  CROSS (Dx , Dy , Dz, WPf x , 0 . D00 , WPf z, VTlf x , VTlfy , VTlf z) 

CALL  DOT (DET45 , Nf x , Nf y , Nf z , Cx~Dx , Cy-Dy , Cz_Dz) 
A33=KPI*VPI*VPI+KPII*VPII*VPII-DET3-DET45 

* 

*  CALCULATE  SIGMA 

Vc 

P=A23*A23-A13*A13+ (KPI-KPII) *A33 
SIGDBL=DATAN(2.D00*Al3*A23/P) 

SIGMA=0 . 5D00*SIGDBL 

* 

*  CALCULATE  K1I  AND  Kill 

* 

G1=P/ (A33*DCOS (SIGDBL) ) 

KS1=KPI+KPII- (A13*A13+A23*A23) /a33 

K1I=(KS1+G1)/2.D00 

K1II= (KS1-G1) /2.D00 

* 

*  CALCULATE  Ell  AND  El I I 

CALL  ROTATE (El  If x.ElIfy, Ellf z, EPIf x , EPIfy , EPIEz, -SIGMA, Nfx.Nfy, 

.  Nfz) 

CALL  ROTATE (El I If x, El I If y, El I If z, El If x.ElIfy, El I fz.RITAG, 

.  Nfx,Nfy,Nfz) 

END 

Vc 

*  FOR  THE  DETERMINATION  OF  THE  ANGLE  BETWEEN  GEAR  PRINCIPAL  DIRECTIONS 

*  AND  PINION  PRINCIPAL  DIRECTIONS 

* 

SUBROUTINE  SIGAN2 (E2lf x , E2If y , E2I f z, E2I If x , E2I I fy , E2llf z, El If x , 

.  El Ify , El Ifz,CS2SIG, SN2SIG, SIGM12) 

IMPLICIT  REAL*8(A-H,K,M-Z) 

CALL  DOT (CSSIG,ElIfx,ElIfy,ElIfz,E2Ifx,E2Ify,E2lfz) 

CALL  DOT (SNSIG, El If x , El Ify , El I fz,~E2lIf x, -E2IIfy, -E2IIf z) 

SIGM2=4 .D00*DATAN (SNSIG/ (1 .DOO+CSSIG) ) 

SIGM12=.5D00’VSIGM2 
CS2SIG=DCOS (SIGM2) 

SN2SIG=DSIN (SIGM2) 

END 

Vc 

*  FOR  THE  DETERMINATION  OF  CONTACT  ELLIPS 

Vc 

SUBROUTINE  ELLIPS (KS2, G2,KS1 , G1 , CS2SIG, SN2SIG,DEF, ALFAl , 
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AXlSL,AXJSS,Ellfx,Ellfy,ElI£z) 

IMPLICIT  REAL*8(A-H,K,M-Z) 

COMMON /A3/TND1 , TND2 , R I  TAG 

COMMON /C2/Nf  x , Nf y , Nf z 

COMMON/ El/XBf , YBf , ZBf 

D-DSQRT  (G 1  *G1  -2 .  DOO*G  1  *G2*CS2S  I G+G2*G2) 

CS2AF1- (G1-G2*CS2SIG)/D 

SN2AF1-G2*SN2SIG/D 

ALFAl -DATAN (SN2AF 1 / ( 1 . D00+CS2AF 1 ) ) 

A- . 25DOO*DABS (KS1 -KS2-D) 

B"  .  25DOO’tDABS  (KS 1 -KS2+D) 

I F (KS2  .LT.  KS1) THEN 
AXISL-DSQRT (DEF/A) 

AX  I SS-DSQRT (DEF/B) 

CALL  ROTATE (XBf,YBf,ZBf,El I fx, El  If y, El  I f z , R 1  TAG- ALFAl , Nf x , 

.  Nfy.Nfz) 

ELSE 

AX ISL-DSQRT (DEF/B) 

AXlSS-DSyRT(DEF/A) 

CALL  ROTATE (XBf,YBf,ZB£,ElIfx,Ell f y , E 1  I f z , -ALFAl , N f x , Nf y , 

.  Nf  z) 

END  IF 

XBf-AXlSL*XBf 
YBf -AX  I SL* YB  f 
ZBf“AXlSLy'ZBf 
END 

COORDINATE  TRANSFORMATION  FOR  F  TO  P 

SUBROUTINE  PF (B2px , B2py , B2pz, Bf x , Bf y , Bf z) 

IMPLICIT  REAL*8(A-H,K,M-Z) 

COMMON /A4/CSD2 ,SND2,CSPIT2,SNPIT2 
COMMON/B^/CSPH2 , SNPH2 , CSPH2 1 , SNPH21 

[Mwf ] - [Mwa] [Maf ] 

CALL  COMB I(wlltwl2,wI3,w21,w22,w23,w31,w32,w33,wl,w2,w3, 

.  CSPH21 ,SNPH21,0.D00,-SNPH2I , CSPH2 1 , 0 . DOO, O.DOO , 0. DOO, l.DOO, 
.  O.DOO, O.DOO, O.DOO, 

.  CSPIT2 , 0. DOO, SNPIT2 , O.DOO, 1 . DOO, 0. DOO, -SNPIT2 , 0. DOO, CSPIT2 , 
.  O.DOO, O.DOO, O.DOO) 

CALL  TRCOOR (B2wx , B2wy , B2wz, 

.  wll,wl2,wl3,w2I,w22,w23,w31,w32,w33,wl,w2,w3, 

.  Bfx,Bfy,Bfz) 

[Mpw] “  [Mpa]  [Maw] 

CALL  COMB I(pll,pl2,pl3,p21,p22,p23,p31,p32,p33,pl,p2,p3, 

.  CSPIT2,O.DOO,-SNPIT2,O.DOO, 1 .DOO, O.DOO, SNPIT2, O.DOO, CSPIT2, 
.  O.DOO, O.DOO, O.DOO, 

.  CSPH2, -SNPH2.0. DOO, SNPH2.CSPH2, O.DOO, O.DOO, O.DOO, l.DOO, 

.  O.DOO, O.DOO, O.DOO) 

CALL  TRCOOR (B2px , B2py, B2pz, 


.  pll ,pl2,pl3,p21 ,p22,p23,p31,p32, p33,pl ,p2,p3, 

.  B2wx , B2wy , B2wz) 

END 

* 

*  USING  EULER  FORMULA  TO  DETERMINATION  SURFACE  INTERFERENCE 

Vc 

SUBROUTINE  EULER (KS2 , G2 , KS1 , G1 , CS2SIG, SN2SIG, IEU) 

IMPLICIT  REAL*8(A-H,K,M-Z) 

T-KS2-KS1 

U-DSQRT( (G2-G1*CS2SIC) **2+ (G1*SN2SIG) **2) 

KR1*(T+U)/2.D00 
KR2“ (T-U)/2.D00 
I F (KR 1*KR2  .LT.  O.DOO)THEN 
IEU"  1 
ELSE 
IEU=0 
END  IF 
END 

* 

*  DETERMINANT 

* 

SUBROUTINE  DET (S , A, B , C , D, E , F , G, H , P) 

IMPLICIT  REALVc8(A-H,K,M-Z) 

S"A*E*P+D*H*C+G*B*F-A*H*F-D*B*P-G*E*C 

RETURN 

END 

* 

*  COORDINATE  TRANSFORMATION 

* 

SUBROUTINE  TRCOOR (XN , YN , ZN , R 1 1 , R 12 , R 1 3 , R2 1 , R22 , R23 , R31 , R32 , R33 , 
T1 ,T2,T3,XP, YP.ZP) 

IMPLICIT  REAL*8(A-H,0-Z) 

XN"Rll*XP-t-R12*YP+Rl3*ZP+Tl 

YN«R21*XP+R22*YP+R23*ZP+T2 

ZN-R31*XP+R32*YP+R33*ZP+T3 

RETURN 

END 

* 

*  MULTIPLICATION  OF  TWO  TRANSFORMATION  MATRICES 

* 

SUBROUTINE  COMB  I (Cl  1 , Cl  2 , C13 , C21 , C22 , C23 , C3 1 , C32, C33 , Cl , C2 , C3 , 
Al 1 , Al2 , Al3 , A21 , A22 , A23 , A31 , A32 , A33 , Al , A2, A3 , 
B11,B12,B13,B21,B22,B23,B31,B32,B33,B1,B2,B3) 
IMPLICIT  REAL*8(A-H,M,N,0-Z) 

C11-B31*A13+B21*A12+B11*A11 
C12“B32*Al3+B22*Al2+B12*Al 1 
C13-B33*Al3+B23*Al2+Bl3*All 
C21«B31*A23+B21*A22+Bll*A21 
C22-B32*A23+B22*A22+B12*A21 
C23-B33*A23+B23*A22+B13*A21 
C31-B31*A33+B21*A32+B11*A31 
C32«B32*A33+B22*A32+B12*A31 
C33“B33*A33+B23*A32+B13*A3 1 
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Cl-B3*Al3+B2*A12+Bl*All+Al 

C2-B3*A23+B2*A22+B1*A21+A2 

C3-B3*A33+B2*A32+B1*A31+A3 

RETURN 

END 

* 

*  DOT  OF  TWO  VECTORS 

* 

SUBROUTINE  DOT (V , XI , Y 1 , Z 1 , X2 , Y2 , Z2) 

IMPLICIT  REAL*8(A-H,0-Z) 

V=X1*X2+Y1*Y2+Z1*Z2 

RETURN 

END 

* 

*  CROSS  OF  TWO  VECTORS 

* 

SUBROUTINE  CROSS (X, Y , Z , A, B , C , D, E , F) 

IMPLICIT  REAL*8(A-H,0-Z) 

X=B*F-C*E 

Y'C*D-A*F 

Z*=A*E_B*D 

RETURN 

END 

* 

*  ROTATION  A  VECTOR  ABOUT  ANOTHER  VECTOR 

* 

SUBROUTINE  ROTATE (XN , YN , ZN , XP , YP , ZP , THETA, UX , UY , UZ) 
IMPLICIT  REAL*8(A-H,0-Z) 

CT-DCOS (THETA) 

ST=DSIN (THETA) 

VT-1.D00-CT 

R11=UX*UX*VT+CT 

R12=UX*UY*VT~UZ*ST 

R13=UX*UZ*VT+UY*ST 

R21“UX*UY*VT+UZ*ST 

R22'UY*UY*VT+CT 

R23'UY*UZ*VT-UX*ST 

R31=UX*UZ*VT~UY*ST 

R32-UY*UZ*VT+UX*ST 

R33”UZ*UZ*VT+CT 

CALL  TRCOOR (XN, YN , ZN,Rl 1 ,R12,RI3,R21 ,R22,R23 ,R31 ,R32,R33 , 

0 . D00 , 0 . D00 , 0 . D00 , 

XP , YP , ZP) 

RETURN 

END 

* 

*  *****  SUBROUTINE  NOLIN  ***** 

* 

SUBROUTINE  NONLIN (FUNC , NS IG , NE , NC , X , Y , Y 1 , DELTA , A, IPVT , WORK) 
IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  X (NE) , Y (NE) ,Y1(NE) ,A(NE,NE) ,IPVT(NE) ,WORK(NE) 

EXTERNAL  FUNC 

NDIM-NE 
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EPS  I - 1 . DOO/ 1 0 . DOO**NS IG 

CALL  NONLI 0 ( FUNC , EPS  I , NE , NC , X , DELTA , NDIM , A , Y , Y 1 , WORK , I PVT) 

RETURN 

END 

* 

*  *****  SUBROUTINE  NOLINO  ***** 

* 

SUBROUTINE  NONLIO (FUNC , EPSI , NE, NC , X, DELTA, NDIM, A, Y , Y1 , WORK, IPVT) 
IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  X(NE) , Y(NE) , Y1 (NE) , IPVT(NE) ,WORK(NE) ,A(NDIM,NE) 
EXTERNAL  FUNC 

*  NC:  //  OF  COUNT  TIMES 

DO  5  I-l.NC 
CALL  FUNC (X, Y , NE) 

*  NE:  //  OF  EQUATIONS 

DO  15  J-l.NE 

IF  (DABS ( Y ( J ) ) .GT. EPSI)  GO  TO  25 
15  CONTINUE 
GO  TO  105 
25  DO  35  J-l.NE 
35  Y1(J)-Y(J) 

DO  45  J-l.NE 

DIFF-DABS(X(J))*DELTA 

IF  (DABS (X ( J) ) . LT . 1 . D- 12)  DIFF-DELTA 

XMAM-X(J) 

X ( J) -X ( J) -DI FF 
CALL  FUNC (X , Y , NE) 

X (J) -XMAM 
DO  55  K-l.NE 

A(K,J)-(Y1 (K)-Y(K))/DIFF 
55  CONTINUE 
45  CONTINUE 
DO  65  J-l.NE 
65  Y  ( J)  —  —  Y 1  ( J) 

CALL  DECOMP  (NDIM, NE, A, COND, IPVT, WORK) 

CALL  SOLVE  (NDIM , NE , A, Y , IPVT) 

DO  75  J-l.NE 
X(J)  -X(J)  +  Y  (J) 

75  CONTINUE 
5  CONTINUE 
105  RETURN 
END 

* 

*  *****  SUBROUTINE  DECOMP  ***** 

* 

SUBROUTINE  DECOMP  (NDIM'.N,  A, COND,  IPVT, WORK) 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  A(NDIM,N) ,WORK(N) , IPVT(N) 

* 

*  DECOMPOSES  A  REAL  MATRIX  BY  GAUSSIAN  ELIMINATION, 

*  AND  ESTIMATES  THE  CONDITION  OF  THE  MATRIX. 
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*  -COMPUTER  METHODS  FOR  MATHEMATICAL  COMPUTATIONS",  BY  G.  E.  FORSYTHE, 

*  M.  A.  MALCOLM,  AND  C.  B.  MOLER  (PRENTICE-HALL,  1977) 

it 

*  USE  SUBROUTINE  SOLVE  TO  COMPUTE  SOLUTIONS  TO  LINEAR  SYSTEM. 

* 

*  INPUT.. 

>v 

*  NDIM  =  DECLARED  ROW  DIMENSION  OF  THE  ARRAY  CONTAINING  A 

*  N  ORDER  OF  THE  MATRIX 

*  A  =  MATRIX  TO  BE  TRIANGULAR I 2 ED 

it 

*  OUTPUT . . 

it 

*  A  CONTAINS  AN  UPPER  TRIANGULAR  MATRIX  U  AND  A  PREMUTED 

*  VERSION  OF  A  LOWER  TRIANGULAR  MATRIX  I~L  SO  THAT 

*  (PERMUTATION  MATRIX) *A-L*U 

it 

*  COND  =  AN  ESTIMATE  OF  THE  CONDITION  OF  A. 

*  FOR  THE  LINEAR  SYSTEM  A*X  =  B  ,  CHANGES  IN  A  AND  B 

*  MAY  CAUSE  CHANGES  COND  TIMES  AS  LARGE  IN  X. 

*  IF  COND+l.O  . EQ.  COND  ,  A  IS  SINGULAR  TO  WORKING 

*  PRECISION.  COND  IS  SET  TO  1.0D+32  IF  EXACT 

*  SINGULARITY  IS  DETECTED. 

it 

*  IPVT  *  THE  PIVOT  VECTOR 

*  IPVT (K)  =  THE  INDEX  OF  THE  K-TH  PIVOT  ROW 

*  IPVT  (N)  =  (-1)** (NUMBER  OF  INTERCHANGES) 

* 

*  WORK  SPACE..  THE  VECTOR  WORK  MUST  BE  DECLARED  AND  INCLUDED 

*  IN  THE  CALL.  ITS  INPUT  CONTENTS  ARE  IGNORED. 

*  ITS  OUTPUT  CONTENTS  ARE  USUALLY  UNIMPORTANT. 

* 

*  THE  DETERMINANT  OF  A  CAN  BE  OBTAINED  ON  OUTPUT  BY 

*  DET(A)  =  IPVT  (N)  *  A (1,1)  *  A(2,2)  *  ...  *  A(N,N)  . 

IPVT  (N) = 1 

IF  (N. EQ. 1)  GO  TO  150 
NM1-N-1 

*  COMPUTE  THE  1-NORM  OF  A  . 

ANORM=0 . DO 

DO  20  J*1,N 
T=0.D0 
DO  10  I-l.N 
10  T=T+DABS(A(I, J) ) 

IF  (T.GT.ANORM)  ANORM=T 
20  CONTINUE 

*  DO  GAUSSIAN  ELIMINATION  WITH  PARTIAL 

*  PIVOTING. 

DO  70  K=1,NM1 

KP 1=K+ 1 

*  FIND  THE  PIVOT. 

M-K 

DO  30  I=KP1,N 
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IF  (DABS (A(I ,K) ) . GT. DABS (A(M, K) ))  M=I 
30  CONTINUE 
IPVT(K) =M 

IF  (M.NE.K)  IPVT(N)=-IPVT(N) 

T=A(M,K) 

A  (M,  K)  =A(K,K) 

A (K, K) -1 

SKIP  THE  ELIMINATION  STEP  IF  PIVOT  IS  ZERO. 
IF  (T.EQ.O.DO)  GO  TO  70 

COMPUTE  THE  MULTIPLIERS. 

DO  40  I=KP 1 , N 
40  A(I,K)=-A(I,K)/T 

INTERCHANGE  AND  ELIMINATE  BY  COLUMNS. 

DO  60  J=KP 1 , N 

t=a(m, j) 

A (M, J) =A(K, J) 

A (K, J) =T  ' 

IF  (T.EQ.O.DO)  GO  TO  60 
DO  50  I=KPl,N 

50  A(I,  J)=A(I,  J)+A(I,K)*T 
60  CONTINUE 
70  CONTINUE 


*  COND  =  (1-NORM  OF  A) * (AN  ESTIMATE  OF  THE  1-NORM  OF  A-INVERSE) 

*  THE  ESTIMATE  IS  OBTAINED  BY  ONE  STEP  OF  INVERSE  ITERATION  FOR  THE 

*  SMALL  SINGULAR  VECTOR.  THIS  INVOLVES  SOLVING  TWO  SYSTEMS 

*  OF  EQUATIONS,  (A- TRANSPOSE) *Y  =  E  AND  A*Z  =  Y  WHERE  E 

*  IS  A  VECTOR  OF  +1  OR  ~1  COMPONENTS  CHOSEN  TO  CAUSS  GROWTH  IN  Y. 

*  ESTIMATE  =  (1-NORM  OF  Z) /(1-NORM  OF  Y) 

Vc 

*  SOLVE  (A- TRANSPOSE) *Y  =  E  . 

DO  100  K-l.N 

T=0.D0 

IF  (K.EQ.l)  GO  TO  90 
KM1=K~1 
DO  80  1=1, KM1 
80  T=T+A(I,K)*W0RK(I) 

90  EK= 1 . DO 

IF  (T.LT.O.DO)  EK=-1.D0 

IF  (A(K,K) .EQ.O.DO)  GO  TO  160 
All-AU, 1) 

WORK (K) =- (EK+T) /A  (1 , 1) 

100  CONTINUE 

DO  120  KB=1 ,NMl 
K=N-KB 
T=0.D0 
KP1=K+1 

DO  110  I=KP1 , N 
110  T=T+A (I , K) *WORK (K) 
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WORK (K) -T 
M=IPVT(K) 

IF  (M.EQ.K)  GO  TO  120 
T=WORK(M) 

WORK (M) -WORK (K) 

WORK(K) =t 
120  CONTINUE 

YNORM- 0.  DO 
DO  130  1=1, N 

130  YNORM- YNORM+DABS (WORK (I) ) 

SOLVE  A *2  =  Y 

CALL  SOLVE  (NDIM,N,A,WORK, IPVT) 


ZNORM-0 . DO 
DO  140  1=1, N 

140  ZNORM-ZNORM+DABS (WORK (I) ) 


* 

150 


* 


ESTIMATE  THE  CONDITION. 

COND=ANORM*ZNORM/ YNORM 
IF  (COND.LT. l.DO)  COND-l.DO 
RETURN 

1-BY-l  CASE.. 

COND= 1 . DO 

IF  (A(l,l) .NE.O.DO)  RETURN 


160  C0ND-1.0D32 
RETURN 
END 


EXACT  SINGULARITY 


SUBROUTINE  SOLVE  (NDIM,N,A,B, IPVT) 

* 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  A(NDIM,N) , B (N) , IPVT (N) 

* 

*  SOLVES  A  LINEAR  SYSTEM,  A*X  =  B 

*  DO  NOT  SOLVE  THE  SYSTEM  IF  DECOMP  HAS  DETECTED  SINGULARITY. 

* 

*  -COMPUTER  METHODS  FOR  MATHEMATICAL  COMPUTATIONS",  BY  G.  E.  FORSYTHE, 

*  M.  A.  MALCOLM,  AND  C.  B.  MOLER  (PRENTICE-HALL,  1977) 

* 

*  INPUT.. 

& 

*  NDIM  -  DECLARED  ROW  DIMENSION  OF  ARRAY  CONTAINING  A 

*  N  ORDER  OF  MATRIX 

*  A  TRIAN2ULARIZED  MATRIX  OBTAINED  FROM  SUBROUTINE  DECOMP 

*  B  RIGHT  HAND  SIDE  VECTOR 

*  IPVT  =  PIVOT  VECTOR  OBTAINED  FROM  DECOMP 

* 

*  OUTPUT.. 
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* 

* 

* 


B  =  SOLUTION  VECTOR,  X 


DO  THE  FORWARD  ELIMINATION. 


IF  (N.EQ.l)  GO  TO  50 
NM1-N-1 
DO  20  K=1 ,NM1 
KPl=K+l 
M=IPVT(K) 

T=B (M) 

B(M)=B  (K) 

B (K) =T 

DO  10  I=KP1 , N 
10  B(I)=B(I)+A(I,K)*T 

20  CONTINUE 

NOW  DO  THE  BACK  SUBSTITUTION. 

DO  40  KB=1,NM1 
KM1=N-KB 
K=KMl+ 1 

B(K)=B(K)  /A(K,K) 

T=~B (K) 

DO  30  I-l.KMl 
30  B (I) =B (I) +A (I , K) *T 
40  CONTINUE 
50  B(1)*B(1)/A(1,1) 

RETURN 

END 
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************* ***************** ***************************************** 
*  * 

*  Gleason’s  Spiral  Bevel  Gears  * 

*  * 

*  Basic  Machine-Tool  Settings  and  Tooth  Contact  Analysis  * 

*  * 

*  Curved  Blade  to  Cut  the  Pinion  * 

*  * 
*  *  *  *  *  *  *  *  *  *  it  it  it  it  it  it  *  *  it  *  *  *  *  *  *  *  *  *  ******  *  V?  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ****************  it 


IMPLICIT  REAL*8(A-H,K,M-Z) 

REAL*8  X (1) , F (1) , FI (1) , PAR (6) ,LM,TX(6) ,TF(6) ,TF1(6) ,TPAR(19) , 

AZSP (1 , 1) , WORKP (1) , AZS (6 , 6) , WORK (6) , LANDAP , LANPDG, LANDPO 
CHARACTERS  HG.HNGR 
DIMENSION  IPVT(6) ,IPVTP(1) 

EXTERNAL  PCNl , PCN2, TCN 
COMMON/P 1 /PAR 
COMMON / T 1 / TP AR 
COMMON/AO/HG 

COMMON/ Al/pll,pl2,pl3,p21, p22 , p23 , p31 , p32, p33 , pi , p2 , p3 

COMMON/ A2/ SG, CSRT2, QG, SNPSIG.CSPS I G 

COMMON/A3/TND1 , TND2 , RITAG 

COMMON / A4/ CSD2 , SND2 , CSP IT2 , SNPIT2 

COMMON /A5 /CSQG , SNQG , THETAG 

COMMON/B 1/CSPH1 1 , SNPH1 1 , SP , EM, LM, CSRT1 , CSD1 , SND1 , CSLANP , SNLANP 

COMMON/ B  2 /CS  P I T 1 , SNP I T 1 , MP 1 , MG2 , QP 

COMMON/B 3/B2fx , B2fy , B2fz 

COMMON /B4/CSPH2 , SNPH2,CSPH21 , SNPH21 

COMMON/B5/XCR , ZCR 

COMMON/C 1/UG, CSTAUG, SNTAUG 

COMMON/C2/N2fx,N2fy,N2fz 

COMMON/DI /CSTAUP , SNTAUP 

COMMON /E 1 /XB  £ , YBf ,ZBf 

COMMON/ FI /PH IGO 

COMMON/G1/DA1 ,DVl 

* 

*  INPUT  THE  DESIGN  DATA 


*  TNI  :  number  of  pinion  teeth 

*  - sec.  3.1 

*  TN2  :  number  of  gear  teeth 

*  - sec .  3.1 


*  RTldg,  RTlmin  :  root  angle  of  pinion  (degree  and  arc  minute,  respec- 

*  tively) 

*  - sec.  3.1 

*  RT2dg,  RT2min  :  root  angle  of  gear  (degree  and  arc  minute,  respec- 


*  tively) 

*  - sec .  3.1 

*  SHAFdg  :  shaft  angle  (degree) 

*  - sec .  3.1 

*  BETAdg  :  mean  spiral  angle  (degree) 

*  sec.  3.1 

*  ADIA  :  average  gear  cutter  diameter 
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*  - sec .  3.1 

*  W  :  point  width  of  gear  cutter 

*  - sec.  3.1 

*  A  :  mean  cone  distance 

*  - sec.  3.1 

*  ALPHdg  :  blade  angle  of  gear  cutter  (degree) 

*  - sec.  3.1 

*  RX  :  radius  of  blade 

*  gear  convex  side 

*  - fig.  10 

*  RV  :  radius  of  blade 

*  gear  concave  side 

*  - fig.  10 

*  DLTXdg  :  angle  measured  counterclockwise  from  root  of  gear  to 

*  the  tangent  of  the  contact  path  (degree) 

*  gear  convex  side 

*  - fig.  19 

*  DLTVdg  :  angle  measured  counterclockwise  from  root  of  gear  to 

*  the  tangent  of  the  contact  path  (degree) 

*  gear  concave  side 

*  - fig.  19 

*  M21XPR  :  first  derivative  of  gear  ratio 

*  gear  convex  side 

*  - sec.  3.1.1 

*  M21VPR  :  first  derivative  of  gear  ratio 

*  gear  concave  side 

*  - sec.  3.1.1 

*  AXILX  :  semimajor  axis  of  contact  ellipse 

*  gear  convex  side 

*  - eq.  (3.76) 

*  AXILV  :  semimajor  axis  of  contact  ellipse 

*  gear  concave  side 

*  - eq.  (3.76) 

*  HNGR  :  hand  of  gear  ( ' L '  or  ' R ' ) 

*  DA  :  amount  of  shift  along  pinion  axis 

*  +  :  pinion  mounting  distance  being  increased 

*  -  :  pinion  mounting  distance  being  decreased 

*  DV  :  amount  of  pinion  shaft  offset 

*  the  same  sense  as  yf  shown  in  fig.  18 

*  DEF  :  elastic  approach 

*  - eq.  (3.76) 

*  EPS  :  amount  to  control  calculation  accuracy 

* 

*  OUTPUT  OF  THE  BASIC  MACHINE-TOOL  SETTINGS 

* 

*  PSIGdg  :  gear  blade  angle 

*  PSIPdg  :  pinion  blade  angle 

*  RG  :  tip  radius  of  gear  cutter 

*  RP  :  tip  radius  of  pinion  cutter 

*  SG  :  gear  radial 

*  SP  :  pinion  radial 

*  QGdg  :  gear  cradle  angle 

*  QPdg  :  pinion  cradle  angle 
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' *  MG2  :  gear  cutting  ratio 

*  MP1  :  pinion  cutting  ratio 

*  EM  :  machining  offset 

*  LM  :  machine  center  to  back  +  sliding  base 

*  XCR,  ZCR  :  x  and  z  coordinates  of  center  of  blade 

* 


DATA  TNI , TN2/10.D00, 41 .D00/ 

DATA  RTldg,RTlmin/12.D00, 1.D00/ 
DATA  RT2dg , RT2min/ 72 . D00 , 25 . D00 / 
DATA  SHAFdg , BETAdg/90 . D00 , 35 . D00/ 
DATA  ADIA/6.0DO0/ 

DATA  W/0.08D00/ 

DATA  A/3.226D00/ 

DATA  ALPHdg/20.D00/ 

DATA  DLTXdg/  90.D00/ 

DATA  DLTVdg/  75.D00/ 

DATA  M21XPR/-3.5D-03/ 

DATA  M21VPP./5 . 2D-03/ 

DATA  AXILX/0. 1710D00/ 

DATA  AXILV/0. 1810D00/ 

DATA  RX/AO.OODOO/ 

DATA  RV/50.00D00/ 

DATA  HNGR/'L'/ 

DATA  DA,DV/0.D00, O.DOO/ 

DATA  DEF/0.00025D00/ 

DATA  EPS/l.D-12/ 


* 


* 


DAl=DA 

DV1*DV 

HG=HNGR 

* 

*  CONVERT  DEGREES  TO  RADIANS 

>V 

CNST=4 . D00*DATAN ( 1 . D00) / 1 80 . D00 

RITAG=90.D00*CNST 

DLTX=DLTXdg*CNST 

DLTV=DLTVdg*CNST 

RTl=(RTldg+RTlmin/60.D00)*CNST 

RT2= (RT2dg+RT2min/60. D00) *CNST 

BETA=BETAdg*CNST 

PSIG»ALPHdg*CNST 

SHAFT-SHAFdg*CNST 

CSRT2=DCOS(RT2) 

SNRT2-DSIN(RT2) 

CSRT1=DC0S (RT1) 

SNRT1=DSIN (RT1) 

* 

*  CALCULATE  PITCH  ANGLES 


c 


MM21-TN1/TN2 
-  eq.  (3. 1) 
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PITCH2=DATAN (DSIN (SHAFT) / (MM21+DC0S (SHAFT) ) ) 

IF (PITCH2  .LT.  O.DOO) THEN 
PITCH2-PITCH2+180.D00 
END  IF 

CSPIT2=DCOS (PITCH2) 

SNPIT2=DSIN (PITCH2) 

c - eq.  (3.2) 

P I TCH 1  =  SHAFT-P I TCH2 
CSPITl=DCOS (PITCHl) 

SNPITl=DSIN (PITCHl) 

* 

*  CALCULATE  DEDENDUM  ANGLES 

* 

c - eq.  (3.3) 

D1=PITCH1-RT1 
D2=PITCH2-RT2 
CSDl=DCOS (Dl) 

SND1=DSIN(D1) 

TNDl=SNDl/CSDl 
CSD2-DCOS (D2) 

SND2=DSIN(D2) 

TND2=SND2/CSD2 

* 

*  CALCULATE  GEAR  CUTTING  RATIO 

* 

c - eq_  (3.7) 

MG2=DSIN (PITCH2) /CSD2 

* 

*  FOR  GEAR  CONVEX  SIDE  1=1,  FOR  GEAR  CONCAVE  SIDE  I 

* 

DO  99999  1=1,2 
IF (I  .EQ.  1)THEN 
WRITE (72,*) ’GEAR  CONVEX  SIDE' 

DLTA=DLTX 

K21PRM=M21XPR 

axil=axilx 

R=RX 

ELSE 

WRITE (72,*) 'GEAR  CONCAVE  SIDE' 

DLTA=DLTV 
M2 1 PRM=M2 1 VPR 
AXIL=AXILV 
R=RV 
END  IF 
WRITE (72 , *) 

c - eq.  (3.76) 

AXIA=DEF/(AXIL*AXIL) 

* 

*  CALCULATE  GEAR  BLADE  ANGLE 

c - sec.  2.2 

IF  (I  .EQ.  2) THEN 
PSIG=180.D00*CNST-PSIG 
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END  IF 

CSPSIG=DCOS (PSIG) 

SNPSIG=DSIN (PSIG) 

CTPSIG=CSPSIG/SNPSIG 

•k 

*  CALCULATE  CUTTER  TIP  RADIUS 

k 

C - eq.  (3.8) 

IF (I  .EQ.  1)THEN 
RG= (ADIA-W) /2.D00 
ELSE 

RG= (ADIA+W)/2.D00 
END  IF 

*  CALCULATE  RADIAL 

* 

c - eq.  (3.9) 

IF(l  .EQ.  1)THEN 

SG=DSQRT  (ADlA*ADIA/A.D00+A*A,'!CSD2,'tCSD2-A*ADIA*CSD2*DSIN(BETA) ) 

*  CALCULATE  CRADLE  ANGLE 

* 

c - eq.  (3.10) 

QG=DACOS ( (A*A*CSD2*CSD2+SG*SG-ADIA*ADIA/4 . D00) / (2 . D00*A*SG*CSD2) ) 
CSQG=DCOS (QG) 

SNQG=DSIN (QG) 

END  IF 

* 

PAR  (1)  =RG,CCTPSIG*CSPSIG 
PAR  (4)=r.G*CTPSlG 

k 

*  CALCULATE  PHIG 

PHIG=0.D0O 
PHIGO=PHIG 
CSPHIG=DCOS (PHIG) 

SNPHIG=DSIN (PHIG) 

Vc 

IF (HG  .EQ.  ' L ' ) THEN 
IF  (I  .EQ.  1)THEN 

*  Mmc=Mms*Msc 

c - eq.  (2.26) 

CALL  COMB  I  (ml  1  ,mI2,ml3,m21  ,tn22,  m2  3 ,  m3 1 ,  m3  2 ,  m3  3 ,  ml ,  m2 ,  m3 , 

1 . DOO , 0 . DOO , 0 . DOO , 0. DOO, CSPHIG, SNPHIG, 0. DOO, -SNPHIG, CSPHIG, 

0 . DOO , 0 . DOO , 0 . DOO , 

1 .DOO,O.DOO,O.DOO,O.DOO,CSQG,-SNQG,O.DOO,SNQG,CSQG, 

0 . DOO , -SG*SNQG , SG*CSQG) 

END  IF 
Mpc=Mpm*Mmc 

c  -  eqs.  (2.25),  (3.13) 

CALL  COMB I(pll,pl2,pl3,p21,p22,p23,p31, p32 , p33 , pi , p2 , p3 , 

CSD2 , 0 . DOO , -SND2 , 0 . DOO , 1 . DOO , 0 . DOO , SND2 , 0 . DOO , CSD2 , 

0. DOO, 0. DOO, 0. DOO, 
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mll,ml2,ml3,m21 , m22,m23,m31 , m32,m33,ml ,m2,m3) 


* 


ELSE 

IF (i  .EQ.  1)THEN 

*  Mmc-Mms*Msc 

c - eq.  (2.26) 

CALL  COMBI (ml  1 ,ml2 , ml 3 ,m21 ,  m22 ,m23 ,m31 ,m32 ,m33 ,ml ,m2,m3 , 

1 .DOO , 0 .DOO , O.DOO, O.DOO, CSPHIG , -SNPHIG, 0. DOO, SNPHIG, CSPHIG, 
0 . DOO , 0 . DOO , 0 . DOO , 

1 .DOO, 0 .DOO .O.DOO , O.DOO , CSQG , SNQG, O.DOO , -SNQG,CSQG, 

O.DOO, SG*SNQG,SG*CSQG) 

END  IF 

*  Mpc=Mpm*Mmc 

c  -  eqs .  (2.25) ,  (3.13) 

CALL  COMBI (pi 1 , pl2 , pl3 , p21 , p22 , p23 , p 3 1 , p32 , p33 ,pl , p2, p3 , 

CSD2 .O.DOO, -SND2 , 0 . DOO , 1 . DOO , 0 . DOO , SND2 , 0 . DOO , CSD2 , 

O.DOO, O.DOO, O.DOO, 

.  mll,ml2,ml3,m21 ,m22,m23,m31 , m3 2, m3 3, ml , m2, m3) 

END  IF 

* 

*  DETERMINE  MAIN  CONTACT  POINT 


CALCULATE  THETAG 

* 

c  -  X ( 1 )  represents  THETAG 

PAR (2) = (MG2-SNRT2) *CSPSIG 
IF (HG  .EQ.  'L')THEN 
PAR (3) =-SNQG*CSRT2*SNPSIG 

c - step  1  in  sec.  3.2 

X(1)=QG-BETA+RITAG 

ELSE 

PAR (3) =SNQG*CSRT2*SNPSIG 

c - step  1  in  sec.  3.2 

X (1) (QG-BETA+RITAG) 

END  IF 

CALL  NONLIN (PCN1 , 1 4 , 1 , 100 , X , F , FI , 1 . D-5 ,  AZSP , IPVTP , WORKP) 
THETAG=X (1) 

CSTHEG=DCOS (THETAG) 

SNTHEG=DS IN (THETAG) 

* 

*  CALCULATE  TAUG 

Vf 

c - eq.  (2.38) 

IF (HG  .EQ.  ' L ' ) THEN 
TAUG=THETAG-QG+PHIG 
ELSE 

TAUG= THE  TAG+QG- PH I G 
END  IF 

CSTAUG=DCOS (TAUG) 

SNTAUG-DSIN(TAUG) 
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*  CALCULATE  UG 

* 

c - eq.  (2. A3) 

IF (HG  .EQ.  'L')THEN 

UG=RG*CTPSIG*CSPSIG-SG*((MG2-SNRT2)*CSPSIG*SNTHEG-DSIN(QG-PHIG)* 

#  CSRT2*SNPSIG) / (CSRT2*SNTAUG) 

ELSE 

UG=RG*CTPSIG*CSPSIG-SG* ( (MG2-SNRT2) *CSPSIG*SNTHEG+DSIN (QG-PHIG) * 

#  CSRT2*SNPSIG) / (CSRT2*SNTAUG) 

END  IF 

Vc 

*  CONVERT  RADIAN  TO  DEGREE 

PSIGDG=PSIG/CNST 

TAUGDG=TAUG/CNST 

QGDG=QG/CNST 

THEGDG=THETAG/CNST 

PHIGDG=PHIGO/CNST 

*  OUTPUT  OF  GEAR  SETTINGS 

V? 

WR I TE ( 72 , 1 0000) PS I GDG , QGDG , RG , SG , MG2 , TAUGDG , UG , THEGDG , PH I GDG 

* 

*  CALCULATE  MAIN  CONTACT  POINT 

* 

c - eq.  (2.1) 

Bcx=RG*CTPSIG-UG*CSPSIG 

Bcy=UG*SNPSIG*SNTHEG 

Bcz=UG*SNPSIG*CSTHEG 

c - eq.  (2.2) 

Ncx=SNPSIG 

Ncy=CSPSIG*SNTHEG 

Ncz=CSPSIG*CSTHEG 

c - eq.  (2.9) 

EGIcx=0.D00 

EGIcy=CSTHEG 

EGIcz=-SNTHEG 

c - eq .  (3.13) 

CALL  TRCOOR (Bpx , Bpy , Bpz, 

.  pll ,pl2,pl3,p21 ,p22,p23,p31 ,p32,p33,pl , p2,p3, 

.  Bcx,Bcy,Bcz) 

c - eq.  (3, 

CALL  TRCOOR (Npx,Npy,Npz, 

.  pll,pl2,pl3,p21,p22,p23,p31,p32, p33 , 0.D00, 0.D00, 0.D00, 

.  Ncx,Ncy,Ncz) 

c - eq.  (3.17) 

CALL  TRCOOR (EGIpx, EG!  >y,EGIpz, 

.  pll,pl2,pl3,p21,p22,p23,p31,p32,p33 , 0. D00, 0. D00, 0.D00, 

.  EGIcx , EGIcy , EGIcz) 

c - fig*  18  &  sec.  3.3 

Bf x=Bpx 
?fy=Bpy 
Bfz=Bpz 
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Nfx=Npx 

Nfy=Npy 

Nfz=Npz 

EGIfx=EGIpx 

EGIfy=EGIpy 

EGIfz=EGIpz 

Vc 

*  CALCULATE  LANDAP 

* 

UGO=UG 

CSTAGO=CSTAUG 

SNTAGO=SNTAUG 

PHIG0=PHIG 

THETGO=THETAG 

* 

DO  99999  J=1 , 2 

* 

CSTAUG=CSTAGO 

SNTAUG=SNTAGO 

UG=UGO 

PHIG=PHIGO 

THETAG=THETGO 

IF ( J  .EQ.  1)THEN 
WRITE (72,*) 'BLADE  CONCAVE  DOWN' 

ELSE 

WRITE (72,*) 'BLADE  CONCAVE  UP' 

END  IF 

LANDAP=DACOS (CSDl*Nf x~SNDl*Nf z) 

IF  (I  .EQ.  1)THEN 
IF  (J  .EQ.  1)THEN 
LANDAP =360 . D00*CNST~ LANDAP 
PSIP=450.D00*CNST-LANDAP 
ELSE 

LANDAP = 180 . D00*CNST~LANDAP 
PSIP=270.D00*CNST-LANDAP 
END  IF 
ELSE 

IF ( J  .EQ.  1)THEN 
PSIP-90 . D00*CNST-LANDAP 
ELSE 

LANDAP- 180 . D00*CNST+LANDAP 
PSIP-270 .D00*CNST-LANDAP 
END  IF 
END  IF 

CSLANP-DCOS (LANDAP) 

SNLANP-DSIN (LANDAP) 

: k 

*  CALCULATE  TAUP 

i< 

TAUP=DATAN2 (Nf y/SNLANP , (Nfx-CSDl*CSLANP) / (~SND1*SNLANP) ) 

IF ( J  .EQ.  2) THEN 

TAUP-DATAN2 (-Nf y/SNLANP , (-Nf x-CSDl *CSLANP) / (-SND1 *SNLANP) ) 
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END  IF 

CSTAUP=DCOS (TAUP) 

SNTAUP=DSIN (TAUP) 

Vc 

*  CALCULATE  PRINCIPAL  CURVATURES  AND  DIRECTIONS  OF  THE  GEAR  CUTTER 


c - eq.  (2. 10) 

KGI=-CTPSIG/UG 

c - eq.  (2.12) 

KGII=0.D00 

c  -  the  second  principal  direction  is  determined  by  rotating  of 

c  -  the  first  principal  derection  about  unit  normal  by  90  degrees 

CALL  ROTATE (EGIIfx.EGI If y.EGI If z, EGIf x , EGIfy , EGIf z, RITAG, 


.  Nfx,Nfy,Nfz) 

* 

*  CALCULATE  W2G 

Vc 

c  -  eqs.  (3 . 18) - (3 . 20) 

IF (HG  .EQ.  ' L ' ) THEN 
W2fx=-SNPIT2 
WGfx=-MG2*CSD2 
W2fy=0.D00 
WGfy=0. DOO 
W2fz=CSPIT2 
WGfz=-MG2*SND2 
ELSE 

W2f x=SNPIT2 
WGf x=MG2*CSD2 
W2fy=0.D00 
WGfy=0 . DOO 
W2fz=-CSPIT2 
WGfz=MG2*SND2 
END  IF 

W2Gf x=W2f x-WGf x 
W2Gfy=W2fy-WGfy 
W2Gfz=W2fz-WGfz 

Vc 

*  CALCULATE  VT2 ,  VTG,  AND  VT2G 

* 

c - eq.  (3.22) 

CALL  CROSS (VT2fx, VT2fy , VT2fz, W2f x , W2fy , W2f z, Bf x , Bfy , Bfz) 

c - eq.  (3.21) 

CALL  CROSS (VTGf x, VTGf y , VTGf z , WGf x , WGf y , WGf z, Bf x , Bfy , Bfz) 

c - eq.  (3.23) 

VT2Gf x=VT2f x-VTGf x 
VT2Gfy=VT2fy-VTGfy 
VT2Gfz=VT2fz-VTGfz 

Vc 

*  CALCULATE  V(2G)GI  AND  V(2G)GII 

ic 

c - eq.  (3.24) 

CALL  DOT (VGI, EGIf x, EGIfy, EGIf z,VT2Gfx,VT2Gfy,VT2Gfz) 
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c - eq.  (3.25) 

CALL  DOT (VGII,EGIIfx,EGIIfy,EGIIfz, VT2G£x , VT2Gf y , VT2Gf z) 

* 

*  CALCULATE  Al3,A23,A33 

* 

c - eq.  (3.26) 

CALL  DET (DETI , W2Gf x , W2Gf y , W2Gf z, Nfx , Nf y , Nf z, EGIf x , EGIfy , EGIfz) 
Al3— KGI*VGI-DETI 
c - eq.  (3.27) 

CALL  DET (DETI I , W2Gfx , W2Gfy , W2Gf z,Nf x ,Nfy , Nfz,EGIIf x , EGIIfy, EGIIfz) 
A23=-KGII*VGII-DETII 
c - eq.  (3.28) 

CALL  DET(DET3,Nfx,Nfy,Nfz, W2Gfx, W2Gfy,W2Gfz, VT2Gfx, VT2Gfy, VT2Gfz) 
CALL  CROSS (Cx , Cy ,Cz, W2f x , W2fy , W2f z, VTGf x , VTGfy , VTGfz) 

CALL  CROSS (Dx , Dy , Dz , WGf x , WGf  y , WGf z, VT2f x , VT2fy , VT2f z) 

CALL  DOT (DET45 ,Nf x ,Nfy , Nfz, Cx~Dx , Cy-Dy , Cz~Dz) 
A33=KGI*VGI*VGI+KGII*VGII*VGII-DET3-DET45 

* 

*  CALCULATE  SIGMA 

* 

c - eq.  (3.29) 

P-A23*A23-A13*A13+ (KGI-KGII) *A33 
SIGDBL=DATAJN(2.D00*A13*A23/P) 

SIGMA-0. 5D00*SIGDBL 

* 

*  CALCULATE  K2I  AND  K2II 

* 

c  -  eqs .  (3 . 30) -(3.31) 

Tl-P/ (A33*DCOS (SIGDBL) ) 

T2-KGI+KGII- (A13*A13+A23*A23) /A33 
K2I=(T1+T2) /2.DOO 
K2II=(T2-T1)/2.D00 

* 

*  CALCULATE  E2I  AND  E2II 

c  -  description  after  eq.  (3.29) 

CALL  ROTATE (E2I f x, E2I f y, E2 I f z, EGIfx, EGIfy, EGIfz, -SIGMA, Nfx.Nfy, 

.  Nfz) 

CALL  ROTATE(E2lIfx,E2IIfy,E2IIfz,E2lfx,E2lfy,E2lfz,RITAG, 

.  Nfx.Nfy, Nfz) 
c - eq.  (3.44) 

TNETAG=DSIN (DLTA+S IGMA) /DCOS (DLTA+S IGMA) 

*  CALCULATE  W2 

* 

c - eq.  (3.33) 

IF(HG  .EQ.  ' L ' ) THEN 
W2fx=-MM21*SNPIT2 
W2fy-0.D00 
W2fz-MM21*CSPIT2 
ELSE 

W2fx-MM21*SNPIT2 

W2fy-0.D00 
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W2fz=-MM21*CSPIT2 
END  IF 

* 

*  CALCULATE  W1 

* 


c - eq.  (3.32) 

IF (HG  .EQ.  ' L ' ) THEN 
Wlfx=-SNPIT1 
Wlf y=0 ,  DOO 
Wlfz—CSPITl 
ELSE 

Wlfx=SNPITl 
Wlfy=O.DOO 
Wlf z=CSPITl 
END  IF 

* 

*  CALCULATE  W12 

* 

c - eq.  (3.34) 

Wl2f x=Wlf x~W2f x 
Wl2f y=Wl f y-W2f y 
W12fz=Wlfz~W2fz 

* 

*  CALCULATE  VT2 

* 

c - —  eq<  (3.36) 

CALL  CROSS (VT2fx , VT2f y, VT2fz, W2fx , W2fy, W2fz, Bf x , Bf y, Bfz) 

* 

*  CALCULATE  VT1 

* 

c - eq.  (3.35) 

CALL  CROSS (VTlf x, VT1 fy.VTIfz, Wlf x, Wlf y, Wlf z,B£x,Bfy, Bfz) 

* 

*  CALCULATE  VT12 

>v 

c - eq.  (3.37) 

VT12f x=VTl f x~VT2fx 
VT12fy=VTlfy-VT2fy 
VT12fz=VTlfz-VT2fz 

* 

*  CALCULATE  V2 

* 

c - eq.  (3.38) 

CALL  D0T(V2I,VT12fx,VT12fy,VT12fz,E2Ifx,E2lfy,E2lfz) 
c - eq.  (3.39) 

CALL  DOT(V2II,VTl2fx,VT12fy,VTl2fz,E2lIfx,E2lIfy,E2lIfz) 


*  CALCULATE  A31 

* 

c - eq.  (3.40) 

CALL  DET (DET1 ,W12£x,W12£y,Wl2fz,Nfx,Nfy,Nfz,E2lfx,E2Ify,E2lfz) 
A31—K2I*V2I~DET1 
c - eq.  (A. 33) 
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A13=A31 


*  CALCULATE  A32 

* 

c - eq.  (3.41) 

CALL  DET(DET2,W12fx,W12fy,W12fz,Nfx,Nfy,Nfz,E2lIfx,E2IIfy,E2IIfz) 
A32=-K2II*V2II-DET2 

c - eq.  (A. 35) 

A23=A32 

* 

*  CALCULATE  A3 3 

* 

c - eq.  (3.42) 

CALL  DET(DET3,Nfx,Nfy,Nfz,W12fx,W12fy,Wl2fz,VT12fx,VT12fy,VTl2fz) 
CALL  CROSS (Cx,Cy,Cz,Wlfx,Wlfy,Wlfz,VT2fx,VT2£y,VT2fz) 

CALL  CROSS (Dx , Dy , Dz , W2f x , W2  f y , W2  f z , VT 1 f x , VT1 f y , VT1 f z) 

CALL  DOT (DOTl , Nf x , Nf y , Nf z , Cx~Dx , Cy~Dy , Cz-Dz) 

CALL  DET (DET4,Nf x ,Nfy,Nfz,W2fx,W2fy,W2fz,Bfx,Bfy,Bfz) 
A33=K2I*V2I*V2I+K2II*V2II*V2II-DET3-D0T1+M21PRM*DET4 

* 

*  CALCULATE  ETAP 

* 

c - eq.  (3.53) 

ETAP“DATAN(((A33+A31*V2I)*TNETAG-A31*V2ll)/(A33+A32* 

.  (V2II~V2I*TNETAG))) 

TNETAP=DSIN (ETAP) /DCOS (ETAP) 

* 

*  CALCULATE  All,  Al2,  AND  A22 

* 

N3= (1 . DOO+TNETAP*TNETAP) *A33 

c - eq.  (3.72) 

Nl= (A13*A13- (A23*TNETAP) **2) /N3 
c - eq.  (3.73) 

N2= (A23+A13*TNETAP) * (Al3+A23*TNETAP) /N3 

KS2=K2I+K2II 

G2=K2I-K2II 

c  -  eqs .  (3.74),  (3.75) 

KS1=KS2-  (  (4.  D00*AXIA5VAXIA-N1,VN1-N2*N2)  *  (1 .  DOO+TNETAP*TNETAP)  / 

.  (-2.D00*AXIA*(1.D00+TNETAP*TNETAP)+N1*(TNETAP*TNETAP-1.D00) 

.  -2 . D00*N2*TNETAP) ) 

c  -  eqs.  (3.66),  (3.69)  &  description  after  eq.  (3.60) 


All=TNETAP*TNETAP/(l.DG0+TNETAP*TNETAP)*(KS2-KSl)+Ni 

c  -  eqs.  (3.67),  (3.70)  &  description  after  eq.  (3.60) 

A12— TNETAP/ (1 . D00+TNETAP*TNETAP) * (KS2-KS1) +N2 

c  -  eqs.  (3.68),  (3.71)  &  description  after  eq.  (3.60) 

A22-1 . D00/ (1 . DOO+TNETAP*TNETAP) * (KS2-KS 1) -N1 

c - eq.  (A. 32) 

A21-A12 

* 


*  CALCULATE  SIGMA(12) 

* 

c - eq.  (3.77) 

SIGDBL-DATAN (2. D00*A12/ (K2I-K2II-A1 1+A22) ) 
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SIGM12=.5D00*SIGDBL 


*  CALCULATE  KlI  AND  Kill 

jV 

c - eq.  (3.78) 

Gl=2 . D00*Al2/DS IN (SIGDBL) 

c - eq.  (3.79) 

K1I=. 5D00* (KS1+G1) 

K1II=.5D00*(KS1-G1) 

Vc 

*  CALCULATE  Ell  AND  El I I 

* 

c  -  similar  to  description  after  eq.  (3.29) 

CALL  ROTATE (ElIfx,ElIfy,ElIfz, E2If x ,E2Ify ,E2lf z,-SIGM12 ,Nf x,Nfy , 
.  Nfz) 

CALL  ROTATE(ElIIfx,ElIIfy,ElIIfz,ElIfx,ElIfy,ElIfz,RITAG, 

.  Nfx,Nfy,Nfz) 

* 

*  PINION 


*  CALCULATE  PRINCIPAL  DIRECTIONS  OF  THE  PINION  CUTTER 

V? 

c - eq.  (3.92) 

IF(HG  .EQ.  ’ L ' ) THEN 
EPIfx=SNDl*SNTAUP 
EP I fy=CSTAUP 
EP I f  z-CSDl *SNTAUP 
ELSE 

EPIfx=-SNDl*SNTAUP 
EPIfy=~CSTAUP 
EPIfz=~CSDl*SNTAUP 
END  IF 

IF (DACOS (EGIfx*EPIfx+EGIfy*EPIfy+EGIfz,vEPIfz) /CNST  .GT.  45.D00) 
.THEN 

EPIf x=~EPIf x 
EPIfy=~EPIfy 
EPIfz=-EPIfz 
END  IF 

* 

CALL  ROTATE(EPIIfx,EPIIfy,EPIIfz,EPIfx,EPIfy,EPIfz,RITAG, 

.  Nfx,Nfy,Nfz) 

* 

*  CALCULATE  THE  ANGLE  BETWEEN  PRINCIPAL  DIRECTIONS  OF  PINION  AND  CUTTER 

* 

c  -  cross  product  of  eli  and  epi 

SNSIGM=(ElIfy*EPIfz-ElIfz*EPIfy)/Nfx 

c  -  dot  product  of  eli  and  epi 

CSSIGM«ElIfx*EPIfx+ElIfy*EPIfy+ElIfz*EPIfz 

CS2SIG«2.DOO*CSSIGM*CSSIGM-1.DOO 

TN2SIG-2.D00*SNSIGM*CSSIGM/CS2SIG 

* 

*  CALCULATE  PRINCIPAL  CURVATURES  OF  PINION  CUTTER 


* 

c - eq.  (2.20) 

KPII=1 .D00/R 
IF (J  .EQ.  2) THEN 
KPII=-KPII 
END  IF 

c - eq.  (3.94) 

KPI= (KPII* (K1I*CSSIGM*CSSIGM+K1II*SNSIGM*SNSIGM) -K1I*K1II) / 
.  (KPI  I~K1 1,VSNSIGM,VSNSTGM-K1II*CSSI0M,‘CSSIGM) 

it 

’'CALCULATE  All,  Al2,  AND  a22 

* 

c 

c 

c 

* 

*  CALCULATE  ZCR 

* 

C 


* 

*  CALCULATE  XCR 

* 

c - eq.  (3.99) 

Bmx=-Bf  x’'CSDl+Bfz’'SNDl 
XCR=Bmx-R’vCSLANP 

it 

*  CALCULATE  RP 

V; 

c 


* 

CALCULATE  MCP 

* 

Zll=Nfy*EPIfz-Nfz*EPIfy 

Z12=Nfy*EPIfx~N£x*EPI£y 

Z21=Nfy*EPIIfz-N£z*EPIIfy 

Z22=Nfy*EPIIfx-Nfx*EPIIfy 

c  -  eqs .  (3.107),  (3.108) 

C11'Z11*CSD1+Z12*SND1 
C12— Z11*SNPIT1+Z12*CSPIT1 
C22“-Z21*SNPIT1+Z22*CSPIT1 


-  eq.  (3.103) 

I F  ( I *  J  .EQ.  2) THEN 
RP=ZCR+DSQRT (DABS (R*R-XCR*XCR) ) 
ELSE 

RP=ZCR-DSQRT (DABS (R*R-XCR*XCR) ) 
END  IF 


—  eq.  (3.101) 

IF  ( J  .EQ.  1)THEN 
ZCR= (SNLANP/KPI) -R*SNLANP 
ELSE 

ZCR=- (SNLANP/KPI) -R*SNLANP 
END  IF 


—  eq.  (A. 31) 

A11=KPI-K1I*CSSIGM’,'CSSIGM-K1II*SNSIGM’,'SNSIGM 

—  eq.  (A. 32) 

Al2=  (K1I-K1II)  ’'SNSIGM’VCSSIGM 

—  eq.  (A. 34) 

A22=KPII-K1I*SNSIGM’,CSNSIGM-K1II*CSSIGM*CSSIGM 
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IF (HG  .EQ.  ' R ' ) THEN 
Cl 1 — Cl  1 
C12— C12 
C22—C22 
END  IF 

c - eq.  (3.119) 

T4=(Bfy*CSRTl)/ (EPIIf x*CSDl-EPIIfz*SNDl) 

IF (HG  .EQ.  ' R ' ) THEN 
T4=-T4 
END  IF 

c - eq.  (3.120) 

Tl— Cll/KPI 

T2= (Al 1*KPII*T4+A11*C22-A12*C12) / (Al2*KPl) 

c - eq.  (3.122) 

Ull-Tl*EPIfx 
U12=T2*EPIf x+T4*EPIIf x 
U21«Tl*EPIfy 
U22=T2*EPIfy+T4*EPIIfy 
U31=Tl*EPIfz 
U32=T2*EPIfz+T4*EPIIfz 
c - eq.  (3.124) 

Vl=U21*(Nfz’'[CSDl+Nfx*SNDl)-Nfy*(Ull*SNDl+U31*CSDl) 
c - eq.  (3.125) 

V2= (U22*CSDl-U21*SNPITl) *Nfz~ (U11*CSPIT1+U12*SND1+U32*CSD1-U31 
*SNPITl) *Nfy+ (U21*CSPIT1+U22*SND1) *Nfx 
c - eq.  (3.126) 

V3=U22*CSPITl*Nf x+ (U32*SNPIT1-U12*CSPIT1) *Nfy-U22*SNPITl*Nf z 
IF  (HG  .EQ.  ' R ' ) THEN 
Vl  — Vl 
V2=-V2 
V3=-V3 
END  IF 

c - eq.  (3.132) 

Hll=-U21*CSPITl+SNDl,v(Bfz*SNPITl-Bfx,'tCSPITl) 

c - eq.  (3.134) 

H21=Ull*CSPITl-U31*SNPITl+Bfy*SNRTl 
c - eq.  (3.136) 

H31«U21*SNPITl+CSDl*(Bfz*SNPITl-Bfx*CSPITl) 
c - eq.  (3.133) 

H12= (Bfz*SNPITl-Bfx*CSPITl-U22) *CSPIT1 

c - eq.  (3.135) 

H22— (Bfy-U12*CSPITl+U32*SNPITl) 
c - eq.  (3.137) 

H32=-(Bfz*SNPITl-B£x*CSPITl-U22)*SNPITl 
IF (HG  .EQ.  1 R ’ ) THEN 

Hll-U21*CSPITl+SNDl*(Bfz*SNPITl-Bfx*CSPITl) 

H21— Ull*CSPITl+U31*SNPITl+Bfy*SNRTl 
H31—U21*SNPITl+CSDl*(Bfz*SNPITl-Bfx*CSPITl) 

HI 2“ (Bf z*SNPITl-Bfx*CSPITl+U22) *CSPIT1 
H22— (B£y+U12*CSPIT1-U32*SNPIT1) 

H32— (Bfz*SNPITl-Bf x*CSPITl+U22) *SNPITl 
END  IF 

c - eq.  (3.139) 
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Fl=Nfx*Hll+Nfy*H21+Nfz*H31 

-  eq.  (3.140) 

F2=Nfx*Hl2+Nfy*H22+Nfz*H32 

-  eq.  (3.145) 

Y2=A12*(2.D00*KPI*T1*T2-V2-F1) 

Y3=A12*(KPI*T2*T2+KPII*T4*T4-V3-F2)-(KPI*T2+C12)*(KPII*T4+C22) 
MP1— Y3/Y2 

CALCULATE  EM  AND  LM 

-  eq.  (3.122) 

VTlPfx=Ull*MPl+U12 

VTlPfy=U21*MPl+U22 

VTlPfz=U31*MPl+U32 

-  eq.  (3.111) 

IF (HG  .EQ.  ' L ' ) THEN 
EM= (Bfy*CSPITl-VTlPfx) / (MPl*SNDl) +Bfy 

LM= (Bfx*CSPITl-Bfz*SNPITl+VTlPfy) /MPl+Bfx*SNDl+Bfz*CSDl 
ELSE 

EM= (-Bfy*CSPITl-VTlPfx) / (MP1*SND1) -Bfy 
LM=  (Bfx*CSPITl-Bfz’vSNPITl-VTlPfy)  /MPl+Bf  x*SNDl+Bf z*CSDl 
END  IF 

CALCULATE  SP  AND  QP 

-  eqs.  (3.150),  (3.151) 

IF (HG  .EQ.  ' L ' ) THEN 
IF  ( J  .EQ.  1)THEN 
Zl=-Bfy+EM-SNLANP/KPI*SNTAUP 
Z2=Bfx*SNDl+Bfz*CSDl-LM-SNLANP/KPI*CSTAUP 
ELSE 

Zl=-Bfy+EM+SNLANP/KPI*SNTAUP 
Z2=Bfx*SNDl+Bfz*CSDl~LM+SNLANP/KPI*CSTAUP 
END  IF 
ELSE 

IF (J  .EQ.  1)THEN 
Zl«Bfy+EM+SNLANP/KPI*SNTAUP 
Z2=Bfx*SNDl+Bfz*CSDl-LM~SNLANP/KPI*CSTAUP 
ELSE 

Zl=Bfy+EM-SNLANP/KPI*SNTAUP 
Z2«Bfx*SNDl+Bfz*CSDl-LM+SNLANP/KPI*CSTAUP 
END  IF 
END  IF 

SP“DSQRT (Z1*Z1+Z2*Z2) 

QP*DATAN(Z1/Z2) 

IF (HG  .EQ.  ’ L 1 ) THEN 
THETAP=TAUP-QP 
ELSE 

THETAP=TAUP+QP 
END  IF 


CONVERT  RADIAN  TO  DEGREE 


PSIPDG=PSIP/CNST 

TAUPDG=TAUP/CNST 

QPDG=QP/CNST 

THEPDG=THETAP/CNST 

LANPDG=LANDAP/CNST 

i< 

*  OUTPUT 

Vc 

WRITE (72 , 10001) PSIPDG , QPDG , RP , SP , MP 1 , LANPDG , XCR , ZCR , EM, LM, TAUPDG , 
THEPDG 


10000  FORMAT (IX, 

'GEAR  SETTINGS:’,/ 

,ix. 

1 PSIGDG 

=' ,G20. 12, 12X, 1 QGDG 

=' .G20.12,/ 

,1X, 

’RG 

=' , G20. 12, 12X, 'SG 

=’ ,G20.12,/ 

,1X, 

'  MG2 

=’ ,G20. 12, 12X, ' TAUGDG 

-' .G20.12,/ 

,1X, 

'UG 

=' ,G20. 12.12X, 1 THETAGDG 

=' ,G20. 12,/ 

,1X, 

' PHIGODG 

=' , G20 . 12 , // 

,1X, 

'PINION 

SETTINGS: ' ,/) 

10001  FORMAT (IX, 

'PSIPDG 

=  '  , G20. 12, 12X, 'QPDG 

=' ,G20. 12,/ 

,ix, 

'RP 

=' ,G20, 12, 12X, 'SP 

=’ ,G20.12,/ 

,1X, 

'MPl 

=’ , G20. 12 , 12X, ' LANDAPDG 

-' .G20.12,/ 

,1X, 

'XCR 

=' , G20. 12, 12X, 'ZCR 

=' ,G20. 12,/ 

,1X, 

'EM 

=' , G20. 12, 12X, 'LM 

=' ,G20.12,/ 

,1X, 

’ TAUPDG 

=' ,G20. 12, 12X, ' THETAPDG 

=  '  .G20.12,/) 

* 


*  TCA 

v? 

TPAR (1)  =RG*CSPSIG/SNPSIG*CSPSIG 

TPAR (2) = (MG2-SNRT2) *CSPSIG 

TPAR (3) =CSRT2*SNPSIG 

TPAR (4) =RG*CSPSIG/SNPSIG 

TPAR (5)=CSD2*SNPSIG 

TPAR (6) =SND2*CSPSIG 

TPAR (7)=SND2*SNPSIG 

TPAR (8) =CSD2*CSPSIG 

TPAR(9)=ZCR*CSRTl 

TPAR (10) =SP*CSRT1 

TPAR (1 1) =EM*CSRT1 

TPAR (12) =XCR*CSRT1 

TPAR(13)=SP,V(MP1-SNRT1) 

TPAR (14) *EM*SNRTl 
TPAR (15) =LM*SNRT1 
TPAR (16) *J 
TPAR (1 7) “R 

* 

PHIP-0.D00 
PHI21=0.D00 
PHI 1 1“0. D00 
CSPH1 l“DCOS (PHI  11) 

SNPH1 1=DSIN (PHI 11) 


TX (1) =PHIP 

TX(2)“THETAP 

TX(3)=LANDAP 
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TX (4) =PHI21 
TX (5) =PHIG 
TX (6)  =THETaG 

CALL  NONLIN (TCN, 14,6, 200, TX, TF, TF1 , 1 . D-5 , AZS , IPVT, WORK) 
PHIP0=TX(1) 

THEPO=TX (2) 

LANDPO=TX (3) 

PHI210=TX (4) 

PHIGO=TX (5) 

THEGO=TX (6) 

* 

TX (1) =PHIPO 
TX (2) =THEPO 
TX (3)  =LANDPO 
TX (4) =PHI210 
TX (5)  =PHIGO 
TX (6) =THEGO 

DPHI 11=18. D00/36 . D00*CNST 

DO  100  IJ=1 ,60 
CSPH1 1=DC0S (PHI  1 1) 

SNPH1 1*DSIN (PHI  1 1) 

CALL  NONLIN (TCN ,14,6, 200 , TX , TF , TF 1 , 1 . D~5 , AZS , IPVT , WORK) 
PHIP-TX(l) 

THETAP=TX (2) 

LANDAP=TX (3) 

PHI21=TX(4) 

PHIG=TX  (5) 

THETAG=TX (6) 

ERROR=  (  (PH  12 1*36 . D02~PHI210,V36.D02)  -PHI  11*36 . D02*TN1/TN2)  /CNST 

* 

CALL  PRING2 (KS2 , G2,E2Ifx,E2Ify,E2Ifz,E2IIfx,E2lIfy,E2lIfz) 

CALL  PRINP1 (KSl,Gl,ElIfx,ElIfy,ElIfz,ElIIfx,ElIIfy,ElII£z) 

CALL  SIGAN2(E2lfx,E2lfy,E2lfz,E2IIfx,E2IIfy,E2lIfz,ElIfx,ElIfy, 
ElIfz,CS2SIG,SN2SIG,SIGM12) 

CALL  EULER (KS2 , G2 ,KS1 , G1 , CS2SIG, SN2SIG, IEU) 

IF (IEU  .EQ.  1)THEN 
WRITE (72,*) 'THERE  IS  INTERFERENCE’ 

GO  TO  88888 
END  IF 

* 

CALL  ELL IPS (KS2,G2,KS1 ,G1,CS2SIG, SN2SIG,DEF,ALFAl , 
AXISL,AXISS,ElIfx,ElIfy, El Ifz) 

>V 

CALL  PF (B2px , B2py , B2pz , B2f x , B2f y , B2f z) 

it 

*  XBf,  YBf,  and  ZBf  is  the  direction  of  the  long  axis  of  the  ellipse 

it 

CALL  PF (XBp , YBp , ZBp , XBf , YBf , ZBf) 

ELBlpx=B2px+XBp 

ELBlpz**B2pz+ZBp 

ELB2px=B2px~XBp 

ELB2pz=B2pz~ZBp 
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IF (I  .EQ.  1  .AND.  J  .EQ.  1 ) THEN 
WRITE (9, 9000) IJ,PHI11/CNST, I J, ERROR 
IF (I J  .LE.  37) THEN 
WRITE (8 , 8000) IJ,B2pz, IJ,B2px 
WRITE (7 , 7000) ELBlpz, ELBlpx , ELB2pz , ELB2px 
END  IF 

ELSE  IF (I  .EQ.  1  .AND.  J  .EQ.  2) THEN 
WRITE (79, 9000) IJ,PHI11/CNST, IJ, ERROR 
IF (I J  .LE.  37) THEN 
WRITE (78 , 8000) I J , B2pz, I J , B2px 
WRITE (77 , 7000) ELB lpz, ELB 1 px , ELB2pz , ELB2px 
END  IF 

ELSE  IF (I  .EQ.  2  .AND.  J  .EQ.  1) THEN 
WRITE (29, 9000) IJ,PHIll/CNST, I J, ERROR 
IF (I J  .LE.  37) THEN 
WRITE (28, 8000) I J , B2pz, I J , B2px 
WRITE (27 , 7000) ELBlpz, ELB lpx , ELB2pz, ELB2px 
END  IF 
ELSE 

WRITE (89, 9000) IJ,PHIll/CNST, IJ, ERROR 
IF (I J  .LE.  37) THEN 
WRITE (88 , 8000) I J , B2pz, I J , B2px 
WRITE (87 , 7000) ELBlpz, ELBlpx , ELB2pz, ELB2px 
END  IF 
END  IF 

* 

PHI 1 1=PHI 1 1+DPHI 1 1 

* 

100  CONTINUE 


PHI11-0.D00 

TX (1) -PHIPO 
TX (2) =THEP0 
TX (3) -LANDPO 
TX (A) -PHI210 
TX (5) “PHIGO 
TX  (6) “THEGO 

DO  200  IJ-1,60 
CSPHll-DCOS(PHIll) 

SNPHll-DSIN(PHIll) 

CALL  NONLIN (TCN, 14,6, 200, TX, TF, TF1 , 1 . D~5 , AZS , IPVT, WORK) 

PHIP-TX (1) 

THETAP-TX(2) 

LANDAP-TX (3) 

PHI21«TX(4) 

PHIG-TX(5) 

THETAG-TX(6) 

ERROR- ( (PHI2 1*36 . D02-PHI2 10*36 . D02) -PHI 11*36. D02*TNl/TN2) /CNST 
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CALL  PRING2(KS2,G2,E2lfx,E2lfy,E2lfz,E2II£x,E2IIfy,E2lIfz) 

CALL  PRINP1 (KSl,Gl,ElTfx,ElIfy,ElIfz,ElIIfx,ElIIfy,ElIIfz) 

CALL  SIGAN2(E2lfx,E2lfy,E2lfz,E2IIfx,E2lIfy,E2IIfz,ElIfx,ElIfy, 
El If z, CS2SIG, SN2SIG, SIGM12) 

CALL  EULER (KS2,G2,KS1,G1 , CS2SIG, SN2SIG, IEU) 

•  IF (IEU  .EQ.  1)THEN 

WRITE (72,*) 'THERE  IS  INTERFERENCE' 

GO  TO  88888 
END  IF 

* 

CALL  ELL I PS (KS2, G2 ,KS1 ,G1 ,CS2SIG, SN2SIG, DEF, ALFAl , 
AXISL,AXISS,ElIfx,ElIfy ,ElIfz) 

k 

CALL  PF (B2px, B2py , B2pz , B2f x , B2fy , B2f z) 

Vc 

*  XBf,  YBf,  and  ZBf  is  the  direction  of  the  long  axis  of  the  ellipse 

5>V 

CALL  PF (XBp , YBp ,ZBp , XBf , YBf , ZBf ) 

ELBlpx=B2px+XBp 

ELBlpz=B2pz+ZBp 

ELB2px=B2px-XBp 

ELB2pz=B2pz-ZBp 

* 

IF (I  .EQ.  1  .AND.  J  .EQ.  1) THEN 
WRITE (9, 9001) IJ,PHI11/CNST, I J, ERROR 
IF (I J  .LE.  37) THEN 
WRITE (8 , 8001) I J , B2pz, I J , B2px 
WRITE (7 , 7000) ELBlpz, ELBlpx , ELB2pz, ELB2px 
END  IF 

ELSE  IF (I  .EQ.  1  .AND.  J  .EQ.  2) THEN 
WRITE (79, 9001) IJ,PHIll/CNST, I J, ERROR 
IF  (I J  .LE.  37) THEN 
WRITE (78, 8001) IJ,B2pz, IJ,B2px 
WRITE (77 , 7000) ELBlpz, ELBlpx , ELB2pz, ELB2px 
END  IF 

ELSE  IF (I  .EQ.  2  .AND.  J  .EQ.  1 ) THEN 
WRITE (29 , 9001) I J , PHI 1 1/CNST, I J , ERROR 
IF (I J  .LE.  37) THEN 
WRITE (28, 8001) IJ,B2pz, I J, B2px 
WRITE  (27 , 7000) ELBlpz, ELBlpx , ELB2pz , ELB2px 
END  IF 
ELSE 

WR I TE (89 , 900 1 ) I J , PHI 1 1 /CNST , I J , ERROR 
IF(I J  .LE.  37) THEN 
WRITE (88, 8001) IJ,B2pz,IJ,B2px 
WRITE (87 , 7000) ELBlpz, ELBlpx , ELB2pz , ELB2px 
END  IF 
END  IF 

k 

PHI 1 1“PHI 1 1-DPHI 1 1 

* 

200  CONTINUE 
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99999  CONTINUE 

88888  CONTINUE 

* 

7000  FORMAT (6X, ' EX (1) = ' , F9 . 6 , / , 6X , ' EY (1) = ' , F9.6 , / , 

6X, 'EX (2)  =  ' ,F9.6,/,6X, ’EY  (2)-' ,F9.6,/, 

6X, 'CALL  CURVE(EX,EY, 2,0)') 

8000  FORMAT (6X, ' XO ( ',12 , ' ) = ' , F9 . 6 , / , 6X, ' YO ( ’ , 12 , ' ) - ' , F15 . 6) 

8001  FORMAT (6X, 'XI (' , 12, ')- ' ,F9.6,/,6X, ' Y1 (' , 12, ')-' , F15.6) 

9000  FORMAT (6X, ' XO ( ’ , 12 , ' ) - ' , F7 . 3 , / , 6X, ' YO ( ' , 12 , ' ) = ’ , F16 . 4) 

9001  FORMAT (6X, ' XI ( * ,12, ')=' ,F7.3, /,6X, ' Y 1 ( ' ,12, ,F16.4) 

END 

* 

*  FOR  THE  DETERMINATION  OF  MEAN  CONTACT  POINT 

* 

SUBROUTINE  PCN1(X,F,NE) 

IMPLICIT  REAL*8(A-H,K,M-Z) 

CHARACTER*8  HG 
INTEGER  NE 

REAL*8  X (NE) , F (NE) , PAR (6) 

COMMON/P 1 /PAR 
COMMON/AO/HG 

COMMON/Al/pl 1 ,p12,pl3,p21, p22 , p23 , p31 , p32, p33, pi , p2, p3 
COMMON/A2/SG, CSRT2 , QG, SNPSIG.CSPSIG 
COMMON/ A3 /TND1 , TND2 , RITAG 
THETAG=X(1) 

CSTHEG=DCOS (THETAG) 

SNTHEG=DSIN (THETAG) 

IF (HG  .EQ.  ' L ' ) THEN 

UG=PAR (1) -SG* (PAR (2) *SNTHEG+PAR (3) ) / (CSRT2*DSIN (THETAG-QG) ) 
ELSE 

UG=PAR (1) -SG* (PAR (2) *SNTHEG+PAR (3) ) / (CSPT2*DSIN (THETAG+QG) ) 
END  IF 

Bcx=PAR (A) -UG*CSPSIG 
Bcy=UG*SNPSIG*SNTHEG 
Bcz=UG*SNPSIG*CSTHEG 
CALL  TRCOOR (Bpx , Bpy, Bpz, 

•  pll ,pl2,pl3,p21 ,p22,p23,p31 ,p32,p33, pi fp2,p3, 

.  Bcx,Bcy,Bcz) 

XM-Bpz* (TND1-TND2) /2 . D00 

F(l)=Bpx-XM 

END 

i< 

*  FOR  THE  DETERMINATION  OF  MEAN  CONTACT  POINT 

★ 

SUBROUTINE  PCN2(X,F,NE) 

IMPLICIT  REAL*8(A-H,K,M-Z) 

CHARACTER *8  HG 
INTEGER  NE 

REAL*8  X (NE) , F (NE) , PAR (6) 

COMMON/P 1 /PAR 
COMMON/AO/HG 

COMMON/Al/pl Ilpl2,pl3,p21,p22,p23,p31,p32>p33, pi, p2,p3 
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COMMON /A2/SG , CSRT2 , QG , SNPSIG , CSPSIG 
COMMON / A3 / TND 1 , TND2 , R I T AG 
COMMON/A4/CSD2 , SND2 , CSPIT2 , SNPIT2 
COMMON/A5/CSQG, SNQG, THETAG 
PHIG-X(l) 

CSPHIG=DCOS (PHIG) 

SNPHIG=DSIN (PHIG) 

IF (HG  .EQ.  ' L ' ) THEN 

UG-PAR (1) -SG* (PAR (2) +PAR (3) *DSItf (QG-PHIG) ) / 

(CSRT2*DSIN (THETAG-QG+PHIG) ) 

ELSE 

UG=PAR (1) -SG* (PAR (2) +PAR (3) *DSIN (QG-PHIG) ) / 

(CSRT2*DSIN (THETAG+QG-PHIG) ) 

END  IF 

Bcx=PAR (4) -UG*CSPSIG 
Bcy=UG*PAR (5) 

Bcz=UG*PAR (6) 

•fc 

*  Mmc=Mms*Msc 

* 

IF (HG  .EQ.  ' L ' ) THEN 

CALL  COMBI (mll,ml2,ml3,m21 , m22 ,m23 , m31 , m32 ,m33 ,ml ,m2,m3 , 

.  1 . DOO, 0. DOO, 0. DOO, 0. DOO, CSPHIG, SNPHIG, 0. DOO, -SNPHIG, CSPHIG, 
.  0 . DOO , 0 . DOO , 0 . DOO , 

.  1. DOO, 0. DOO, 0. DOO, 0. DOO, CSQG, -SNQG, 0. DOO, SNQG, CSQG, 

.  0 . DOO , ~SG*SNQG , SG*CSQG) 

* 

*  Mpc=Mpm*Mmc 

it 

CALL  COMBI (pll ,pl2,pl3,p21 ,p22,p23,p31 ,p32,p33,pl ,p2,p3, 

.  CSD2 , 0 . DOO , -SND2 , 0 . DOO , 1 . DOO , 0 . DOO , SND2 , 0 . DOO , CSD2 , 

.  0. DOO, 0. DOO, 0. DOO, 

.  mll,ml2,ml3,m21 ,  m22  ,m23  ,m31  ,m32,n33,ml  ,ta2,m3) 

ELSE 

* 

*  Mmc“Mms*Msc 

* 

CALL  COMBI (mll,ml2,ml3,m21 ,m22,m23,m31 ,m32,tn33,ml , m2, m3 , 

.  1 . DOO , 0 . DOO , 0 . DOO , 0 . DOO , CSPHIG , -SNPHIG , 0 . DOO , SNPHIG , CSPHIG , 
.  0. DOO, 0. DOO, 0. DOO, 

.  1. DOO, 0. DOO, 0. DOO, 0. DOO, CSQG, SNQG, 0. DOO, -SNQG, CSQ 
.  0 . DOO , SG*SNQG , SG*CSQG) 

* 

*  Mpc"Mpm*Mmc 

* 

CALL  COMBI (pll ,pl2,pl3,p21 ,p22, p23,p31 ,p32,p33,pl ,p2,p3, 

.  CSD2, 0. DOO, -SND2  0 . DOO , 1 . DOO , 0 . DOO , SND2 , 0 . DOO , CSD2 , 

.  0. DOO, 0. DOO, 0. DOO, 

.  ml 1 ,ml2,ml3 ,m21 ,m22 ,m23 ,m31 ,m32,m33 ,ml , m2 ,m3) 

END  IF 

CALL  TRCOOR(Bpx,Bpy,Bpz, 

.  pll,pl2,pl3,p2*l  ,p22,p23,p31,p32,p33,pl,p2,p3, 

.  Bcx,Bcy,Bcz) 
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XM=Bpz* (TND1-TND2) /2 . DOO 

F(l)=Bpx-XM 

RETURN 

END 

£ 

*  FOR  THE  DETERMINATION  OF  COORDINATES  AND  NORMALS  OF  CONTACT  POINTS 

* 

SUBROUTINE  TCN(TX,TF,NE) 

IMPLICIT  REAL*8(A-H,K,M-Z) 

REAL*8  LANDAP , LM 
CHARACTERS  HG 
INTEGER  NE 

DIMENSION  TX(NE) , TF (NE) , TPAR (19) 

COMMON / T 1 / TP AR 
COMMON/AO/HG 

COMMON/A2/SG , CSRT2 , QG , SNPS IG , CSPS IG 
COMMON/A4/CSD2, SND2 ,CSPIT2 , SNPIT2 

COMMON/B 1 /CSPHil , SNPH I 1 , SP , EM , LM , CSRT 1 , CSDl , SNDI , CSLANP , SNLANP 

COMMON/B2/CSPIT1 , SNPITl ,MP1 ,MG2,QP 

COMMON/B3/B2fx,B2fy,B2fz 

COMMON/B A/CSPH2 , SNPH2 , CSPH2 1 , SNPH2 1 

COMMON/B5/XCR.ZCR 

COMMON/Cl/UG,CSTAUG,SNTAUG 

COMMON/C2/N2f x , N2f y , N2f z 

COMMON/D1/CSTAUP , SNTAUP 

COMMON/ FI /PH I GO 

COMMON/Gl/DA.DV 

J=IDINT (TPAR (16) ) 

PHIP*TX (1) 

THETAP-TX(2) 

LANDAP=TX(3) 

PHI21=TX (A) 

PHIG=TX (5) 

THETAG'TX (6) 

CSPHIP'DCOS(PHIP) 

SNPHIP=DSIN (PHIP) 

CSTHEP-DCOS (THETAP) 

SNTHEP-DSIN (THETAP) 

CSLANP-DCOS (LANDAP) 

SNLANP-DSIN (LANDAP) 

CSPH21-DCOS (PHI21) 

SNPH21-DSIN(PHI21) 

CSPHIG-DCOS (PHIG) 

SNPHIG-DSIN(PHIG) 

CSTHEG-DCOS (THETAG) 

SNTHEG-DSIN (THETAG) 

PHI2- (PHIG-PHIGO) /MG2 

PHI1-PHIP/MP1 

CSPH2-DC0S(PHI2) 

SNPH2«DSIN(PHI2) 

CSPH1-DCOS (PHI1) 

SNPHl-DSIN(PHIl) 
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IF (HG  .EQ.  ' L ' ) THEN 
TAUP“THETAP+QP-PHIP 
ELSE 

TAUP=THETAP-QP+PHIP 
END  IF 

CSTAUP“DCOS (TAUP) 

SNTAUP=DS IN (TAUP) 

IF  (HG  .EQ.  ' L ' ) THEN 
TAUG= THET AG-QG+PH I G 
ELSE 

TAUG“THETAG+QG-PHIG 
END  IF 

CSTAUG=DCOS (TAUG) 

SNTAUG=DSIN(TAUG) 

CSQPHP=DCOS (QP-PHIP) 

SNQPHP=DSIN (QP-PHIP) 

CSQPHG=DCOS (QG-PHIG) 

SNQPHG=DSIN (QG-PHIG) 

* 

*  LEFT-HAND  GEAR 

k 

IF (HG  .EQ.  ' L ' ) THEN 

UG=TPAR (1) -SG* (TPAR (2) *SNTHEG_SNQPHG*TPAR (3) ) / (CSRT2*SNTAUG) 
B2py»UG*SNPSIG*SNTAUG-SG*SNQPHG 
ELSE 

UG=TPAR (1) -SG* (TPAR (2) *SNTHEG+SNQPHG*TPAR (3) ) / (CSRT2*SNTAUG) 
B2py=UG*SNPSIG*SNTAUG+SG*SNQPHG 
END  IF 

B2px=CSD2* (TPAR (4) -UG*CSPSIG) -SND2* (UG*SNPSIG*CSTAUG+SG*CSQPHG) 
B2pz=SND2* (TPAR (4) -UG*CSPSIG) +CSD2* (UG*SNPSIG*CSTAUG+SG*CSQPHG) 
N2px-TPAR (5) -TPAR (6) *CSTAUG 
N2py=CSPSIG*SNTAUG 
N2pz=TPAR (7) +TPAR (8) *CSTAUG 

k 

*  [Mwp]  *  [Mwa]  [Map] 

* 

IF (HG  .EQ.  ' L ' ) THEN 

CALL  COMB I (wp 1 1 , wp I 2 , wp 13 , wp2 1 , wp22 , wp23 , wp3 1 , wp32 , wp33 , 

.  wpl,wp2,wp3, 

.  CSPH2 , SNPH2 , 0 . D00 , -SNPH2 , CSPH2 , 0 . D00 , 0 . DOO , 0 . DOO , 1 . DOO , 

.  0. DOO, 0. DOO, 0. DOO, 

.  CSPIT2 , O.DOO, SNPIT2.0.D00, 1 . DOO,O.DOO, -SNPIT2 , 0.D00.CSPIT2 , 

.  O.DOO, O.DOO, O.DOO) 

ELSE 

CALL  COMBI (wpl 1 , wpl2 , wpl3 , wp21 , wp22 , wp23 ,wp31 , wp32 , wp33 , 

.  wpl,wp2,wp3, 

.  CSPH2 , -SNPH2 , 0 . DOO , SNPH2 , CSPH2 , 0 . DOO , 0 . DOO , 0 . DOO , 1 . DOO , 

.  O.DOO, O.DOO, O.DOO, 

.  CSP I T2 , 0 . DOO , SNP I T2 , 0 . DOO , 1 . DOO , 0 . DOO , -SNP I T2 , 0 . DOO , CSP IT2 , 

.  O.DOO, O.DOO, O.DOO) 
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END  IF 

CALL  TRCOOR (B2wx, B2wy , B2wz, 

.  wpl 1 , wpl2 , wpl3 , wp21 , wp22 , wp23 , wp31 , wp32 , wp33 , wpl , wp2 , wp3 , 

.  B2px,B2py,B2pz) 

CALL  TRCOOR (N2wx,N2wy,N2wz, 

.  wpll ,wpl2,wpl3,wp21,wp22,wp23,wp31 ,wp32,wp33,O.DOO,O.DOO,O.DOO, 
.  N2px , N2py, N2pz) 

* 

*  [Mf w]  =  [Mf a]  [Maw] 

* 

IF (HG  .EQ.  ' L ' ) THEN 

CALL  COMBI (fwl 1 , f wl2 , f wl3 , f w21 , f w22 , f w23 , f w31 , f w32 , f w33 , 

.  fwl,fw2,fw3, 

.  CSPIT2, 0. DOO, -SNPIT2, 0. DOO, 1 .D00, 0. D00, SNPIT2 , 0. D00.CSPIT2, 

.  0 . DOO , 0 . D00 , 0 . D00 , 

.  CSPH21 ,-SNPH21 , 0. DOO, SNPH21 ,CSPH21 , O.DOO, O.DOO, O.DOO, 1 .DOO, 

.  O.DOO, O.DOO, O.DOO) 

ELSE 

CALL  COMBI (fwl 1 , f wl2 , f wl3 , f w21 , f w22 , f w23 , f w31 , f w32 , f w33 , 

.  fwl,fw2,fw3, 

.  CSP IT2 , 0 .  DOO ,  -SNP IT2 , 0 .  DOO ,  1 .  DOO ,  0 .  DOO ,  SNP IT2 , 0 .  DOO ,  CSP I T2 , 

.  O.DOO, O.DOO, O.DOO, 

.  CSPH2 1 , SNPH2 1 , 0 . DOO , -SNPH2 1 , CSPH2 1 , 0 . DOO , 0 . DOO , 0 . DOO , 1 . DOO , 

.  O.DOO, O.DOO, O.DOO) 

END  IF 

CALL  TRCOOR (B2fx,B2fy,B2fz, 

.  f wl 1 , f wl2 , f wl3 , f w2 1 , f w22 , f w23 , f w3 1 , f w32 , f w33 , fwl , f w2 , f w3 , 

.  B2wx,B2wy,B2wz) 

CALL  TRCOOR (N2fx,N2fy,N2fz, 

.  fwl I,fwl2,fwl3,fw21,fw22,fw23,fw31,fw32,fw33, O.DOO, O.DOO, O.DOO, 
.  N2wx,N2wy,N2wz) 

* 

*  PINION 

* 

IF (HG  .EQ.  ' L ' ) THEN 

Blpy= (ZCR+TPAR (17) *SNLANP) *SNTAUP+SP*SNQPHP-EM 
ELSE 

Blpy= (ZCR+TPAR (17) *SNLANP) *SNTAUP"SP*SNQPHP+EM 
END  IF 

Blpx- (XCR+TPAR (17) *CSLANP) *CSD1- ( (ZCR+TPAR (17) *SNLANP) *CSTAUP+ 
SP*CSQPHP+LM) *SND1 

Blpz- (XCR+TPAR (17) *CSLANP) *SND1+ ( (ZCR+TPAR (17) *SNLANP) *CSTAUP+ 
SP*CSQPHP+LM) *CSD1 
IF ( J  .EQ.  2) THEN 

Nlpx»CSLANP*CSDl-SNLANP*SNDl*CSTAUP 

Nlpy-SNLANP*SNTAUP 

Nlpz-CSLANP*SND1+SNLANP*CSD1*CSTAUP 

ELSE 

Nlpx— CSLANP*CSD1+SNLANP*SND1*CSTAUP 
Nlpy—  SNLANP*SNTAUP 
Nlpz— CSLANP*SND1-SNLANP*CSD1*CSTAUP 
END  IF 
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* 

* 


[Mwp]  =  [Mwa]  [Map] 


IF (HG  .EQ.  ' L ' ) THEN 

CALL  COMBI (wpl 1 , wpl2, wpl3 , wp21 , wp22 , wp23 , wp31 , wp32, wp33 , 
wpl,wp2,wp3, 

.  CSPHl , -SNPH1 , 0.D00, SNPHl ,CSPHl , 0 . D00, 0.D00, 0. D00, 1 . D00, 

.  0 . D00 , 0 . D00 , 0 . D00 , 

.  CSPIT1 , O.DOO , SNPIT1 , 0. DOO, 1 .DOO , 0 . DOO.-SNPITl , O.DOO, CSPIT1 , 

.  O.DOO, O.DOO, O.DOO) 

ELSE 

CALL  COMBI (wpll , wpl2, wpl3 , wp21 , wp22 , wp23 , wp31 , wp32, wp33 , 

.  wpl,wp2,wp3, 

.  CSPHl , SNPHl , 0 . DOO , -SNPHl , CSPH 1 , 0 . DOO , 0 . DOO , 0 . DOO , 1 . DOO , 

.  O.DOO, O.DOO, O.DOO, 

.  CSPIT1 , O.DOO, SNP IT 1 .O.DOO, 1 . DOO , O.DOO, ~SNP IT 1 , O.DOO, CSP IT 1 , 

.  O.DOO, O.DOO, O.DOO) 

END  IF 

CALL  TRCOOR(Blwx,Blwy,Blwz, 

.  wpl 1 , wpl 2 , wpl 3 , wp21 , wp22 , wp23 , wp31 , wp32 , wp33 , wpl , wp2, wp3 , 

.  Blpx.Blpy.Blpz) 

CALL  TRCOOR(Nlwx,Nlwy,Nlwz, 

.  wpll , wpl 2 , wpl 3 , wp21 , wp22 , wp23 , wp31 , wp 32 ,wp33, 0. DOO, O.DOO, O.DOO, 
.  Nlpx.Nlpy.Nlpz) 

* 

*  [Mpw]  =  [Mpa]  [Maw] 

* 

IF (HG  .EQ.  ' L ' ) THEN 

CALL  COMBI (pwll ,pwl2,pwl3,pw21 ,pw22,pw23,pw31 ,pw32,pw33, 

•  pwl 9 pw2 9 pw3 9 

.  CSPIT1,O.DOC),-SNPIT1,O.DOO,1.DOO,O.DOO,SNPIT1,O.DOO,CSPIT1, 

.  O.DOO, O.DOO, O.DOO, 

.  CSPHl 1, SNPHl 1,0. DOO, -SNPHl 1, CSPHl 1,0. DOO, 0. DOO, 0. DOO, 1. DOO, 

.  O.DOO, O.DOO, O.DOO) 

ELSE 

CALL  COMBI (pwl 1 , pwl2 , pwl 3 , pw21 , pw22, pw23 , pw31 , pw32 , pw33 , 

.  pwl , pw2 , pw3 , 

.  CSPIT1, 0. DOO, -SNPITl.O. DOO, 1. DOO, O.DOO, SNPIT1, O.DOO, CSPIT1, 

.  O.DOO, O.DOO, O.DOO, 

.  CSPHl 1, -SNPHl 1,0. DOO, SNPHl 1, CSPHl 1,0. DOO, 0. DOO, 0. DOO, 1. DOO, 

.  O.DOO, O.DOO, O.DOO) 

END  IF 

CALL  TRCOOR (Blpx , Blpy , Blpz, 

.  pwl 1 , pwl2 , pwl 3 ,pw21 , pw22 , pw23 , pw31 , pw32 ,pw33, pwl , pw2 , pw3 , 

.  Blwx,Blwy,Blwz) 

CALL  TRCOOR (Nlpx.Nlpy.Nlpz, 

.  pwl 1 , pwl 2 , pwl 3 , pw21 , pw22 , pw23 , pw31 ,pw32 ,pw33 , O.DOO, O.DOO, O.DOO, 
.  Nlwx,Nlwy,Nlwz) 

Blfx— Blpx+DA*SNPIT1 
Blfy—  Blpy+DV 
Blfz-Blpz+DA*CSPIT1 
Nlfx— Nlpx 
Nlfy*-Nlpy 
Nlfz-Nlpz 
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IF (HG  .EQ.  1 L ' ) THEN 

TF  (1)  = (TPAR (9) *SNTAUP+TPAR (10) *SNQPHP~TPAR (11)) *CSLANP- 

(TPAR (12) *SNTAUP-TPAR (13) *SNTHEP+TPAR (14) *CSTAUP+TPAR (15) * 
SNTAUP) *SNLANP 

ELSE 

TF  (1)  = (TPAR (9) *SNTAUP-TPAR (10) *SNQPHP+TPAR (11) ) *CSLANP- 

(TPAR (12) *SNTAUP~TPAR (13) *SNTHEP-TPAR (14) *CSTAUP+TPAR (15) * 
SNTAUP) *SNLANP 

END  IF 

TF(2)=B2fx-Blfx 
TF(3)=B2fy-Blfy 
TF (4)*B2fz~Blfz 
TF (5) =N2f x-Nlf x 
TF(6)=N2fy-Nlfy 
END 

* 

*  FOR  THE  DETERMINATION  OF  GEAR  PRINCIPAL  CURVATURES  AND  DIRECTIONS 

* 

SUBROUTINE  PRING2 (KSG, GG , EGI f x , EGIf y , EGIfz, EGI If x , EGIIf y , EGIIf z) 
IMPLICIT  REAL*8(A-H,K,M-Z) 

COMMON/A2/SG,CSRT2 ,QG, SNPSIG,CSPSIG 
COMMON/ A3 /TND1 , TND2 , RITAG 
C0MM0N/A4/CSD2 , SND2 , CSP IT2 , SNP IT2 
COMMON/B2/CSPIT1 , SNPIT1 , MPl ,MG2,QP 
COMMON/B3/B2fx,B2fy,B2fz 
COMMON/B4/CSPH2 , SNPH2 , CSPH2 1 , SNPH2 1 
COMMON/Cl/UG.CSTAUG, SNTAUG 
COMMON/C2/N2fx,N2fy,N2fz 
COMMON/ Fl /PH IGO 
KCI=-CSPSIG/ (UG*SNPSIG) 

KCII=0.D00 

ECI f x=SND2*SNTAUG 

ECIfy=CSTAUG 

ECIfz=-CSD2*SNTAUG 

ECIIfx=-CSD2*CSPSIG-SND2*SNPSIG*CSTAUG 

ECIIfy=SNPSIG*SNTAUG 

ECIIfz=-SND2*CSPSIG+CSD2*SNPSIG*CSTAUG 

WGfx=-SNPIT2 

WGfy-O.DOO 

WGfz«CSPIT2 

WCfx=-MG2*CSD2 

WCfy=0.D00 

WCfz— MG2*SND2 

WGCfx-WGfx-WCfx 

WGCfy-WGfy-WCfy 

WGCfz-WGfz-WCfz 

CALL  CROSS (VTGf x, VTGfy , VTGfz, WGf x , WGfy , WGf z,B2f x , B2fy ,B2fz) 

CALL  CROSS (VTCf x , VTCf y , VTCf z , WCf x , WCf y , WCf z, B2f x , B2f y , B2f z) 

VTGCf x*VTGf x-VTCf x 
VTGCfy-VTGfy-VTCfy 
VTGCfz-VTGfz-VTCfz 

CALL  DOT (VCI , EC I f x , ECI f y , EC I f z , VTGCf x , VTGCf y , VTGCf z) 

CALL  DOT (VCII , EC Ilf x.ECIIfy, ECI If z, VTGCf x, VTGCf y, VTGCf z) 
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£ 

*  CALCULATE  Al3,A23,A33 

* 


CALL  DET(DETI,WGCfx,WGCfy, WGCfz,N2fx,N2fy,N2fz,ECIfx,ECIfy,ECI£z) 
A13=-KCI*VCI-DETI 

CALL  DET (DET 1 1 , WGC  £ x , WGC  f  y , WGC  f  z , N2  f  x , N2  f y , N2  f z , 

ECIIf x , ECIIfy , ECIIfz) 

A23=-KCII*VCII~DETII 

CALL  DET (DET3 ,N2fx ,N2fy ,N2f z, WGCf x , WGCfy, WGCfz, 

VTGCf x , VTGCf y , VTGCf z) 

CALL  CROSS (Cx , Cy , Cz, WGf x , 0 . D00 , WGf z , VTCf x , VTCf y , VTCf z) 

CALL  CROSS (Dx , Dy , Dz, WCf x , 0 . DOO , WCfz , VTGfx, VTGfy , VTGfz) 

CALL  DOT (DETA5 , N2  fx , N2 fy , N2  fz , Cx-Dx , Cy~Dy , Cz~Dz) 
A33=KCPvVCI*VCI+KCII*VCII*VCII-DET3-DET45 

* 

*  CALCULATE  SIGMA 

* 

P=A23*A23-A13*A13+ (KCI-KCII) *A33 
SIGMA2=DATAN (2 . D00*Al3*A23/P) 

S I GMA= 0 . 5D00*S I GMA2 

* 

*  CALCULATE  KG I  AND  KGII 

* 

GG=P/ (A33*DCOS (SIGMA2) ) 

KSG=KC I +KC I I - (Al3*Al3+A23*A23) /A33 
KGI“ (KSG+GG) /2.D00 
KGI 1= (KSG-GG) /2 . DOO 

* 

*  CALCULATE  EGI  AND  EGII 

* 

CALL  ROTATE (EGI f x, EGI f y, EGI f z, ECI £x,ECIfy,ECIfz, “SIGMA, N2fx,N2fy, 
.  N2fz) 

CALL  ROTATE (EGI I f x , EGI I f y , EGI I f z , EGI f x , EGI f y , EGI f z , RITAG , 

.  N2£x,N2fy,N2fz) 

END 

* 

*  FOR  THE  DETERMINATION  OF  PINION  PRINCIPAL  CURVATURES  AND  DIRECTIONS 

* 

SUBROUTINE  PRINPI (KSP,GP,EPIfx,EPIfy,EPIfz,EPIIfx,EPIIfy,EPIIfz) 
IMPLICIT  REAL*8(A-H,K,M-Z) 

REAL*8  LM, TPAR (19) 

COMMON / T 1 / TP AR 
COMMON/A3/TND1 , TND2 , RITAG 

COMMON/B 1 /CSPH 1 1 , SNPH 1 1 , SP , EM , LM , CSRT 1 , CSDl , SND1 , CSLANP , SNLANP 

COMMON/B2/CSPIT1 , SNPIT1 ,MPl ,MG2 ,QP 

COMMON/B3/B2fx,B2fy,B2fz 

COMMON /B5 / XCR , ZCR 

COMMON/C2/N2fx,N2fy,N2fz 

COMMON/Dl /CSTAUP , SNTAUP 

J*IDINT (TPAR (16) ) 

R“TPAR (17) 

IF (J  .EQ.  1)THEN 
KCI-SNLANP/ (ZCR+R*SNLANP) 
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KCII=1 .DOO/R 
ELSE 

KCI=-SNLANP/ (ZCR+R*SNLANP) 

KCII— 1.  DOO/R 
END  IF 

ECIf x=SNDl*SNTAUP 

ECIfy=CSTAUP 

ECIfz=CSDl*SNTAUP 

ECIIf x=CSDl*SNLANP+SNDl*CSLANP*CSTAUP 
ECIIfy=-CSLANP*SNTAUP 

ECIIf z=-SNDl*SNLANP+CSDl*CSLANP*CSTAUP 

IF ( J  .EQ.  2) THEN 

ECIIfx=-ECIIfx 

ECIIfy=-ECIIfy 

ECIIfz=-ECIIfz 

END  IF 

WPfx=-SNPITl 

WPfy=O.DOO 

WPfz=-CSPITl 

WCfx=-MPl*CSDl 

WCfy=O.DOO 

WCfz=MPl*SNDl 

WPCf x=WPf x-WCf x 

WPCfy=WPf y-WCfy 

WPCfz=WPfz~WC£z 

CALL  CROSS (VTPf x , VTPf y , VTPf z, WPfx , WPfy , WPfz, B2f x , B2f y , B2f z) 

CALL  CROSS (VTClfx , VTClfy, VTClfz, WCf x , WCfy, WCf z,B2f x , B2fy , B2f z) 

CALL  CROSS (VTC2f x , VTC2f y , VTC2f z, LM*SND1 , EM, LM*CSD1 , WCf x , WCfy , WCf z) 

VTCfx=VTClfx+VTC2fx 

VTCfy-VTClfy+VTC2f y 

VTCfz=VTClfz+VTC2fz 

VTPCf x=VTPf x-VTCf x 

VTPCf y=VTPfy-VTCfy 

VTPCf z= VTPf z~VTCfz 

CALL  DOT (VCI , ECIf x , ECIf y, ECIfz, VTPCf x , VTPCf y, VTPCf z) 

CALL  DOT (VCII, ECI If x, ECIIf y,ECI If z, VTPCf x.VTPCfy, VTPCf z) 

* 

*  CALCULATE  Al3,A23,A33 

* 

CALL  DET (DETI, WPCf x, WPCfy, WPCf z,N2fx,N2fy,N2fz, ECIf x,ECIfy, ECIfz) 
A13'-KCI*VCI-DETI 

CALL  DET (DETII, WPCf x, WPCfy, WPCfz,N2fx,N2fy,N2fz, 
ECIIfx,ECIIfy,ECIIfz) 

A23=-KCII*VCII-DETII 

CALL  DET (DET3,N2fx,N2fy,N2fz, WPCf x, WPCfy, WPCf z, 

VTPCf x , VTPCf y, VTPCf z) 

CALL  CROSS (Cx , Cy , Cz , WPf x , 0 . DOO , WPf z, VTCf x , VTCf y , VTCf z) 

CALL  CROSS (Dx , Dy , Dz , WCf x , 0 . DOO, WCf z, VTPf x , VTPf y , VTPf z) 

CALL  DOT (DET45 , N2f x , N2£y , N2f z , Cx-Dx , Cy-Dy , Cz-Dz) 
A33-KCI*VCI*VCI+KCII*VCII*VCII-DET3-DETA5 


192 


*  CALCULATE  SIGMA 

* 


P=A23*A23-A13*A13+ (KCI-KCII) *A33 
SIGMA2=DATAN  (2 .  D00*Al3*A23/P) 

S  IGMA=0 . 5DOO*S ICMA2 

it 

*  CALCULATE  KPI  AND  KPII 

* 

GP=P/  (a33’vDCOS  (SIGMA2) ) 

KSP=KCI+KCII- (A13*A13+A23*A23) /A33 
KPI= (KSP+GP) /2.D00 
KPII= (KSP-GP) /2.D00 

* 

*  CALCULATE  EPI  AND  EPII 

'V 

CALL  ROTATE (EPIf x, EPI fy, EPI f z.ECIfx, ECI fy.ECIfz, -SIGMA, N2fx,N2fy, 
.  N2fz) 

CALL  ROTATE (EPIIfx,EPIIfy,EPIIfz,EPIfx, EPIf y, EPIfz, RITAG, 

.  N2fx,N2fy,N2fz) 

END 

*  FOR  THE  DETERMINATION  OF  THE  ANGLE  BETWEEN  GEAR  PRINCIPAL  DIRECTIONS 

*  AND  PINION  PRINCIPAL  DIRECTIONS 

* 

SUBROUTINE  SIGAN2 (EGIfx , EGIfy , EGIf z, EGIIf x, EGIIfy , EGIIfz, EPIf x , 

.  EPIfy, EPIfz, CS2SIG, SN2SIG, SIGMPG) 

IMPLICIT  REAL*8(A-H,K,M-Z) 

CALL  DOT (CSSIG, EPIf x, EPIfy, EPIfz, EGIfx, EGIfy, EGIfz) 

CALL  DOT (SNSIG, EPIf x, EPIf y, EPIf z, -EGIIf x, -EGIIfy, -EGIIfz) 

SIGM2=4 . D00*DATAN (SNSIG/ ( 1 . DOO+CSS IG) ) 

SIGMPG=.5D00*SIGM2 
CS2SIG=DCOS (SIGM2) 

SN2SIG=DSIN (SIGM2) 

END 

*  FOR  THE  DETERMINATION  OF  CONTACT  ELLIPS 

* 

SUBROUTINE  ELLIPS (KSG, GG, KSP , GP , CS2SIG, SN2SIG, DEF , ALFAP , 

AXISL, AXISS, EPIf x, EPIfy, EPIfz) 

IMPLICIT  REAL*8(A-H,K,M-Z) 

COMMON/A3/TND1 , TND2 , RITAG 
COMMON/C2/N2fx,N2fy,N2fz 
COMMON/E 1 /XBf , YBf , ZBf 

D=DSQRT (GP*GP-2 . D00*GP*GG*CS2SIG+GG*GG) 

CS2AFP* (GP-GG*CS2SIG) /D 

SN2AFP*GG*SN2S IG/D 

ALFAP=DATAN (SN2AFP/ (1 . D00+CS2AFP) ) 

A- . 25DOO*DABS (KSP-KSG-D) 

B- . 25DOO*DABS (KSP-KSG+D) 

IF (KSG  .LT.  KSP) THEN 
AXISL“DSQRT (DEF/A) 

AXISS“DSQRT (DEF/B) 

CALL  ROTATE (XBf , YBf , ZBf .EPIfx, EPIfy, EPIfz, RITAG- ALFAP, N2fx, 
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.  N2fy,N2fz) 

ELSE 

AXISL=DSQRT(DEF/B) 

axiss=dsqrt(def/a) 

CALL  ROTATE (XBf , YBf , ZBf , EPIf x , EPIf y , EPI f z, “ALFAP , N2f x , N2f y , 

.  N2fz) 

END  IF 

XBf=AXlSL*XBf 

YBf=AXISL*YBf 

ZBf=AXlSL*ZBf 

END 

* 

*  COORDINATE  TRANSFORMATION  FOR  F  TO  P 

* 

SUBROUTINE  PF (B2px , B2py , B2pz , B2f x , B2f y , B2f z) 

IMPLICIT  REAL*8 (A-H,K,M~Z) 

COMMON/A4/CSD2 , SND2 , CSPIT2 , SNPIT2 
COMMON/B4/CSPH2 , SNPH2 , CSPH21 , SNPH2 1 

* 

*  [Mtf]  *=  [Mta]  [Maf] 

* 

CALL  COMBI (til, tl2, tl3, t21, t22, t23, t31, t32, t33, tl, t2, t3, 

.  CSPH2 1 , SNPH2 1 , 0 . DOO , -SNPH2 1 , CSPH2 1 , 0 . DOO , 0 . DOO , 0 . DOO , 1 . DOO , 

.  0. DOO, 0. DOO, 0. DOO, 

,  CSPIT2, O.DOO, SNPIT2, O.DOO, 1 . DOO, O.DOO, -SNP I T2, O.DOO, CSPIT2 , 
.  O.DOO, O.DOO, O.DOO) 

CALL  TRCOOR (B2wx , B2wy , B2wz, 

.  tll,tl2,tl3,t21,t22,t23,t31,t32,t33,tl,t2,t3, 

.  B2fx,B2fy,B2fz) 

* 

*  [Mpt]  =  [Mpa]  [Mpt] 

* 

CALL  COMBI (pll,pl2,pl3,p21, p22, p23 , p31 , p32 ,p33 , pi , p2 , p3 , 

.  CSPIT2,0.D00,-SNPIT2, O.DOO, 1. DOO, O.DOO, SNPIT2, O.DOO, CSPIT2, 
.  O.DOO, O.DOO, O.DOO, 

.  CSPH2 ,  -SNPH2 , 0 .  DOO ,  SNPH2 ,  CSPH2 , 0 .  DOO ,  0 .  DOO ,  0 .  DOO ,  1 .  DOO , 

.  O.DOO, O.DOO, O.DOO) 

CALL  TRCOOR (B2px,B2py,B2pz, 

.  pll,pl2,pl3,p21,p22,p23,p31,p32,p33,pl,p2,p3, 

.  B2wx,B2wy, B2wz) 

END 

* 

*  USING  EULER  FORMULA  TO  DETERMINATION  SURFACE  INTERFERENCE 

* 

SUBROUT INE  EULER (KSG , GG , KSP , GP , CS2S IG , SN2SIG, IEU) 

IMPLICIT  REAL*8(A-H,K,M-Z) 

A-KSG-KSP 

B-DSQRT ( (GG-GP*CS2SIG) **2+ (GP*SN2SIG) **2) 

KR1-(A+B)/2.D00 

KR2-(A-B)/2.D00 

IF (KR1*KR2  .LT.  O.DOO) THEN 

IEU-1 

ELSE 
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IEU-0 
END  IF 
END 

* 

*  DETERMINANT 

* 

SUBROUTINE  DET (S , A, B , C , D, E, F , G , H , P) 

IMPLICIT  REAL*8(A-H,K,M-Z) 

S=A*E*P+D*H*C+G*B*F-A*H*F-D*B*P-G*E*C 

RETURN 

END 

* 

*  COORDINATE  TRANSFORMATION 

* 

SUBROUTINE  TRCOOR (XN , YN, ZN, R1 1 , R12 , R13 , R21 , R22 , R23 , R31 , R32 , R33 . 

T1,T2,T3,XP, YP,ZP) 

IMPLICIT  REAL*8(A-H,0-Z) 

XN=R11*XP+R12*YP+R13*ZP+T1 

YN=R21*XP+R22*YP+R23*ZP+T2 

ZN=R3 1 *XP+R32*YP+R33*ZP+T3 

RETURN 

END 

k 

*  MULTIPLICATION  OF  TWO  TRANSFORMATION  MATRICES 

* 

SUBROUTINE  COMBI (Cl 1 , C12 , C13 , C21 , C22 , C23 , C31 , C32 , C33 , Cl , C2 , C3 , 
All , A12 , A13 , A21 , A22, A23 , A31 , A32, A33 , Al , A2, A3, 
B11,B12,B13,B21 ,B22,B23,B31 ,B32,B33,B1 ,B2,B3) 
IMPLICIT  REAL*8(A-H,M,N,0-Z) 

C11-B31*A13+B21*A12+B11*A11 

C12-B32*A13+B22*A12+B12*A11 

C13»B33*A13+B23*A12+B13*A11 

C2 1 -B3 1 *A23+B2 1 *A22+B 1 1 *A2 1 

C22=B32*A23+B22*A22+B12*A21 

C23-B33*A23+B23*A22+B13*A21 

C31“B31*A33+B21*A32+B11*A31 

C32-B32*A33+B22*A32+Bi2*A31 

C33-B33*A33+B23*A32+B13*A31 

Cl-B3*A13+B2*A12+B1*A1;+Al 

C2=B3*A23+B2*A22+B1*A21+A2 

C3=B3*A33+B2*A32+Bl*A31+A3 

RETURN 

END 

* 

*  DOT  OF  TWO  VECTORS 

* 

SUBROUTINE  DOT (V , XI , Yl , Z 1 , X2 , Y2 , Z2) 

IMPLICIT  REAL*8(A-H,0-2.) 

V-X1*X2+Y1*Y2+Z1*Z2 

RETURN 

END 

■k 

*  CROSS  OF  TWO  VECTORS 
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SUBROUTINE  CROSS (X, Y,Z, A, B ,C,D,E, F) 

IMPLICIT  REAL*8(A-H,0-Z) 

X=B*F-C*E 

Y=C*D-A*F 

Z=A*E-B*D 

RETURN 

END 

* 

*  ROTATION  A  VECTOR  ABOUT  ANOTHER  VECTOR 

* 

SUBROUTINE  ROTATE (XN , YN , ZN , XP , YP , ZP , THETA, UX , UY , UZ) 

IMPLICIT  REAL*8(A-H,0-Z) 

CT=DCOS (THETA) 

ST=DSIN (THETA) 

VT=l.DOO-CT 

Rll=UX*UX*VT+CT 

R 1 2=UX*UY*VT-UZ*ST 

R13=UX*UZ*VT+UY*ST 

R21=UX*UY*VT+UZ*ST 

R22=UY*UY*VT+CT 

R23=UY*UZ*VT~UX*ST 

R31=UX*UZ*VT~UY*ST 

R32=UY*UZ*VT+UX*ST 

R33=UZ*UZ*VT+CT 

CALL  TRCOOR (XN , YN , ZN , R1 1 ,R12,R13,R21 ,R22,R23 ,R31 ,R32,R33, 

0 . DOO , 0 . D00 , 0 . DOO , 

XP , YP , ZP) 

RETURN 

END 

* 

*  *****  SUBROUTINE  NOLIN  ***** 

* 

SUBROUTINE  NONLIN (FUNC , NS IG , NE , NC , X , Y , Y 1 , DELTA, A , IPVT , WORK) 
IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  X (NE) , Y (NE) ,Yl(NE) ,A(NE,NE) ,IPVT(NE) ,WORK(NE) 

EXTERNAL  FUNC 
NDIM=NE 

EPSI- 1 . DOO/ 10 . D00**NSIG 

CALL  NONLIO (FUNC , EPS I , NE , NC , X , DELTA , NDIM , A , Y , Y 1 , WORK , IP VT) 

RETURN 

END 

* 

*  *****  SUBROUTINE  NOLINO  ***** 

* 

SUBROUTINE  NONLIO (FUNC , EPS I , NE , NC , X , DELTA, NDIM , A, Y, Y1 , WORK , IPVT) 
IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  X (N£) , Y (NE) , Y1 (NE) , IPVT (NE) ,WORK(NE) ,A(NDIM,NE) 
EXTERNAL  FUNC 

*  NC:  #  OF  COUNT  TIMES 

DO  5  1*1 ,NC 
CALL  FUNC (X , Y , NE) 

*  NE:  #  OF  EQUATIONS 
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DO  15  J=1 ,NE 

IF  (DABS(Y(J)) .GT.EPSI)  GO  TO  25 
15  CONTINUE 
GO  TO  105 
25  DO  35  J= 1 , NE 
35  Yl ( J) =Y (J) 

DO  45  J=1,NE 

DIFF=DABS (X ( J) ) *DELTA 

IF  (DABS (X ( J) ) . LT. 1 . D-12)  DIFF=DELTA 

XMAM=X(j) 

X(J)=X(J)-DIFF 
CALL  FUNC (X, Y , NE) 

X ( J) =XMAM 
DO  55  K= 1 , NE 

A(K,  J)  =  (Y1  (K)-Y(K))/DIFF 
55  CONTINUE 
45  CONTINUE 
DO  65  J= 1 , NE 
65  Y(J)=-Y1(J) 

CALL  DECOMP  (NDIM,NE,A,COND, IPVT, WORK) 

CALL  SOLVE  (NDIM,NE,A, Y, IPVT) 

DO  75  J=1 ,NE 

X ( J) =X ( J) +Y ( J) 

75  CONTINUE 
5  CONTINUE 
105  RETURN 
END 

* 

*  *****  SUBROUTINE  DECOMP  ***** 

* 

SUBROUTINE  DECOMP  (NDIM,N,A,COND, IPVT, WORK) 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  A(NDIM,N) ,WORK(N) ,IPVT(N) 

Vc 

*  DECOMPOSES  A  REAL  MATRIX  BY  GAUSSIAN  ELIMINATION, 

*  AND  ESTIMATES  THE  CONDITION  OF  THE  MATRIX. 

* 

*  -COMPUTER  METHODS  FOR  MATHEMATICAL  COMPUTATIONS",  BY  G.  E.  FORSYTHE, 

*  M.  A.  MALCOLM,  AND  C.  B.  MOLER  (PRENTICE-HALL,  1977) 

* 

*  USE  SUBROUTINE  SOLVE  TO  COMPUTE  SOLUTIONS  TO  LINEAR  SYSTEM. 

* 

*  INPUT . . 

"k 

*  NDIM  =  DECLARED  ROW  DIMENSION  OF  THE  ARRAY  CONTAINING  A 

*  N  ORDER  OF  THE  MATRIX 

*  A  MATRIX  TO  BE  TRIANGULAR I ZED 

* 

*  OUTPUT.. 

* 

*  A  CONTAINS  AN  UPPER  TRIANGULAR  MATRIX  U  AND  A  PREMUTED 

*  VERSION  OF  A  LOWER  TRIANGULAR  MATRIX  I~L  SO  THAT 
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*  (PERMUTATION  MATRIX) *A-L*U 

* 

*  COND  =  AN  ESTIMATE  OF  THE  CONDITION  OF  A. 

*  FOR  THE  LINEAR  SYSTEM  A*X  -  B  ,  CHANGES  IN  A  AND  B 

*  MAY  CAUSE  CHANGES  COND  TIMES  AS  LARGE  IN  X. 

*  IF  C0ND+1.0  .EQ.  COND  ,  A  IS  SINGULAR  TO  WORKING 

*  PRECISION.  COND  IS  SET  TO  1.0D+32  IF  EXACT 

*  SINGULARITY  IS  DETECTED. 

Vc 

*  IPVT  =  THE  PIVOT  VECTOR 

*  IPVT (K)  =  THE  INDEX  OF  THE  K~TH  PIVOT  ROW 

*  IPVT (N)  =  (-1)** (NUMBER  OF  INTERCHANGES) 

* 

*  WORK  SPACE..  THE  VECTOR  WORK  MUST  BE  DECLARED  AND  INCLUDED 

*  IN  THE  CALL.  ITS  INPUT  CONTENTS  ARE  IGNORED. 

*  ITS  OUTPUT  CONTENTS  ARE  USUALLY  UNIMPORTANT. 


*  THE  DETERMINANT  OF  A  CAN  BE  OBTAINED  ON  OUTPUT  BY 

*  DET(A)  =  IPVT (N)  *  A(1 ,  1)  *  A(2,2)  *  ...  *  A(N,N) 

* 


* 


* 


* 


* 


* 

* 


* 


IPVT  (N)  =  1 

IF  (N.EQ.l)  GO  TO  150 
NM1-N-1 

COMPUTE  THE  1-NORM  OF  A  . 

ANORM*=O.DO 
DO  20  J-1,N 
T=O.DO 
DO  10  I»1,N 
10  T=T+DABS (A(l , j) ) 

IF  (T.GT.ANORM)  ANORM-T 
20  CONTINUE 

DO  GAUSSIAN  ELIMINATION  WITH  PARTIAL 
PIVOTING. 

DO  70  K-l.NMl 
KP1=K+1 

FIND  THE  PIVOT. 

M=K 

DO  30  I-KPl.N 

IF  (DABS (A(I ,K) ) .GT. DABS (A(M,K) ) )  M-I 
30  CONTINUE 
IPVT (K) -M 

IF  (M.NE.K)  IPVT (N)— IPVT (N) 

T*  A  (M ,  K) 

A(M,K)  -A  (K,K) 

A(K,K)=T 

SKIP  THE  ELIMINATION  STEP  IF  PIVOT  IS  ZERO. 
IF  (T.EQ.O.DO)  GO  TO  70 


DO  AO  I-KPl.N 
40  A ( I , R) — A ( I , K) /T 

DO  60  J-KPl.N 


COMPUTE  THE  MULTIPLIERS. 


INTERCHANGE  AND  ELIMINATE  BY  COLUMNS. 
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T=A(M,  J) 

A(M,  J)=A(K,  J) 

A(K,J)=T 

IF  (T.EQ.O.DO)  GO  TO  60 
DO  50  I=KP1,N 

50  A(I,  J)=A(I,  J)+A(I,K)*T 
60  CONTINUE 
70  CONTINUE 

* 

*  COND  =  (1-NORM  OF  A) * (AN  ESTIMATE  OF  THE  1-NORM  OF  A-INVERSE) 

*  THE  ESTIMATE  IS  OBTAINED  BY  ONE  STEP  OF  INVERSE  ITERATION  FOR  THE 

*  SMALL  SINGULAR  VECTOR.  THIS  INVOLVES  SOLVING  TWO  SYSTEMS 

*  OF  EQUATIONS,  (A- TRANSPOSE) *Y  =  E  AND  A*Z  =  Y  WHERE  E 

*  IS  A  VECTOR  OF  +1  OR  -1  COMPONENTS  CHOSEN  TO  CAUSS  GROWTH  IN  Y. 

*  ESTIMATE  =  (1-NORM  OF  Z) / (1-NORM  OF  Y) 

* 

*  SOLVE  (A-TRANSPOSE)*Y  =  E  . 

DO  100  K=1,N 

T=O.DO 

IF  (K.EQ.l)  GO  TO  90 
KMl=K-l 
DO  80  1=1, KM1 
80  T=T+A (I , K) *WORK (I) 

90  EK= 1 . DO 

IF  (T.LT.O.DO)  EK=-1.D0 

IF  (A(K,K) .EQ.O.DO)  GO  TO  160 
Al  1=A(1 ,  1) 

WORK (K) *- (EK+T) /A(l, 1) 

100  CONTINUE 

DO  120  KB=1 , NM1 
K=N-KB 
T=O.DO 
KP 1=K+ 1 

DO  110  I=KP 1 , N 
110  T=T+A(l,K)*WORK(K) 

WORK(K) =T 
M=IPVT(K) 

IF  (M.EQ.K)  GO  TO  120 
T=WORK(M) 

WORK (M) =WORK(K) 

work(k) =T 
120  CONTINUE 

* 

YNORM-O.DO 
DO  130  1=1, N 

130  YNORM=YNORM+DABS(WORK(l)) 

* 

*  SOLVE  A*Z  =  Y 
CALL  SOLVE  (NDIM,N, A, WORK, IPVT) 

* 
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ZNORM-O.DO 
DO  140  I«1,N 

140  ZNORM=ZNORM+DABS(WORK(l)) 

ESTIMATE  THE  CONDITION. 

COND=ANORM*ZNORM/ YNORM 
IF  (COND.LT. 1.D0)  COND=1.DO 
RETURN 

1-BY-l  CASE.. 

150  COND= 1 . DO 

IF  (A(l,l) .NE.O.DO)  RETURN 

EXACT  SINGULARITY 

160  COND-1.0D32 
RETURN 
END 

SUBROUTINE  SOLVE  (NDIM.N , A, B , IPVT) 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  A(NDIM,N) ,B(N) , IPVT(N) 

SOLVES  A  LINEAR  SYSTEM,  A*X  -  B 

DO  NOT  SOLVE  THE  SYSTEM  IF  DECOMP  HAS  DETECTED  SINGULARITY. 

-COMPUTER  METHODS  FOR  MATHEMATICAL  COMPUTATIONS-,  BY  G.  E.  FORSYTHE, 
M.  A.  MALCOLM,  AND  C.  B.  MOLER  (PRENTICE-HALL,  1977) 

INPUT. . 

NDIM  =  DECLARED  ROW  DIMENSION  OF  ARRAY  CONTAINING  A 
N  =  ORDER  OF  MATRIX 

A  =  TR I ANGULAR IZED  MATRIX  OBTAINED  FROM  SUBROUTINE  DECOMP 

B  =  RIGHT  HAND  SIDE  VECTOR 

IPVT  *  PIVOT  VECTOR  OBTAINED  FROM  DECOMP 

OUTPUT. . 

B  =  SOLUTION  VECTOR,  X 


DO  THE  FORWARD  ELIMINATION. 


IF  (N.EQ.l)  GO  TO  50 
NM1-N-1 
DO  20  K«1,NM1 
KP1-K+1 
M-IPVT(K) 

T-B(M) 

B(M)-B(K) 

B(K)-T 

DO  10  I-KPl.N 
10  B(l)-B(l)+A(I,K)*T 

20  CONTINUE 

DO  40  KB-l.NMl 


NOW  DO  THE  BACK  SUBSTITUTION. 
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KM1-N-KB 

K-KM1+1 

B(K)-B(K)  /A(K,K) 
T— B  (K) 

DO  30  1=1, KM1 
30  B(I)=B(I)+A(I,K)*T 

40  CONTINUE 
50  B(1)=B(1)/A(1,1) 
RETURN 
END 


201 


Bibliography 


[1]  Litvin,  F.  L.,  Tsung,  and  Lee,  H.-T.:  Generation  of  Spiral  Bevel  Gears  with  Conjugate 

Tooth  Surfaces  and  Tooth  Contact  Analysis.  NASA-CR-4088,  Aug.,  1987. 

[2]  Litvin,  F.  L.  and  Gutman,  Y.:  Methods  of  Synthesis  and  Analysis  for  Hypoid  Gear  Drives  of 

“Formate”  and  “Helixform”,  Parts  1-3,  Trans,  of  the  ASME,  Journal  of  Mechanical  Design, 
Vol.  103,  Jan.  1981,  pp.  83-113.  .  ^ 

[3j  Litvin,  F.  L.  and  Gutman,  Y.:  A  Method  of  Local  Synthesis  of  Gears  Grounded  on  the 
Connections  Between  the  Principal  and  Geodetic  Curvatures  of  Surfaces.  Trans,  of  the  ASME, 
Journal  of  Mechanical  Design,  Vol.  103,  Jan.  1981,  pp.  114-125. 

[4]  Zhang,  Y.:  Synthesis  and  Analysis  of  Hypoid  Drive.  Ph.D.  dissertation,  University  of  Illinois 
at  Chicago,  Chicago,  1988. 

[5]  Zhang,  J.:  Analysis  and  Synthesis  of  Modified  Spur  and  Helical  Gears.  Ph.D.  dissertation, 
University  of  Illinois  at  Chicago,  Chicago,  1988. 

[6]  Dudley,  D.  W.:  The  Evolution  of  the  Gear  Art.  Washington  D.  C.,  American  Gear  Manufac¬ 
turers  Association,  1969. 

[7]  Colvin,  F.  H.  and  Stanley,  F.  A.:  Gear  Cutting  Practice.  New  York,  McGraw-Hill,  1950. 

[8]  Dudley,  D.  W.:  Bevel  and  Hypoid  Gear  Manufacture.  In  Gear  Handbook:  The  Design,  Man- 
ufacture,  and  Application  of  Gears,  ed.  D.  W.  Dudley,  Chapter  20.  New  York,  McGraw-Hill, 
1962.  New  York,  McGraw-Hill,  1950. 

[9]  Litvin,  F.  L.:  The  Theory  of  Gearing.  Second  Edition,  Moscow,  Nauka,  1968.  (an  English 
Edition  is  in  Press  by  NASA) 

[10]  Dyson,  A.:  A  General  Theory  of  the  Kinematics  and  Geometry  of  Gears  in  Gears  in  Three 
Dimensions.  London,  Oxford  University  Press,  1969. 

[11]  Gleason  Works:  Understanding  Tooth  Contact  Analysis.  Gleason  Machine  Division,  The  Glea¬ 
son  Works.  Publication  No.  SD3139.  New  York,  1981. 

[12]  Litvin,  F.  L.:  Relationships  Between  the  Curvatures  of  Tooth  Surfaces  in  Three-Dimensional 
Gear  Systems.  NASA-TM-75130,  Jul.,  1977. 

[13]  Boresi,  A.  P.  and  Sidebottom,  0  M.:  Advanced  Mechanics  of  Materials.  Fourth  Edition,  New 
York,  John  Wiley  &  Sons,  1985. 


[14]  Hertz,  H.:  Gesammetlte  Werke.  Vol.  1,  Lepzig,  1895.  For  an  English  translation,  see  Hertz, 
H.:  Miscellaneous  Papers.  New  York,  Macmillan,  1896. 

[15]  Litvin,  F.  L.,  Rahman  P.,  and  Goldrich,  N.:  Mathematical  Models  for  the  Synthesis  and 
Optimization  of  Spiral  Bevel  Gear  Tooth  Surfaces.  NASA-CR-3553,  Jun.,  1982. 


203 


NASA 

National  Aeronautics  and 
Space  Administration 


Report  Documentation  Page 


1.  Report  No. 


NASA  CR-4259 
AVSCOM  TR-89-C-014 


2.  Government  Accession  No. 


4.  Title  and  Subtitle 

Generation  and  Tooth  Contact  Analysis  of  Spiral  Bevel  Gears  With 
Predesigned  Parabolic  Functions  of  Transmission' Errors 


3.  Recipient’s  Catalog  No. 


5.  Report  Date 
November  1989 


6.  Performing  Organization  Code 


7.  Author(s) 

Faydor  L.  Litvin  and  Hong-Tao  Lee 


9.  Performing  Organization  Name  and  Address 

University  of  Illinois  at  Chicago 
Department  of  Mechanical  Engineering 
Chicago,  Illinois 

12.  Sponsoring  Agency  Name  and  Address 
Propulsion  Directorate 

U.S.  Army  Aviation  Research  and  Technology  Activity— AVSCOM 

Cleveland,  Ohio  44135-3127 

and 

NASA  Lewis  Research  Center 
Cleveland,  Ohio  44135-3191 


15.  Supplementary  Notes 

Project  Manager,  Robert  F.  Handschuh,  Propulsion  Directorate,  U.S. 
Activity— AVSCOM. 


8.  Performing  Organization  Report  No. 
None  (E-4977) 


10.  Work  Unit  No. 

1L162209A47A 

505-63-51 


1 1 .  Contract  or  Grant  No. 
NAG3-783 


13.  Type  of  Report  and  Period  Covered 

Contractor  Report 
Final 

14.  Sponsoring  Agency  Code 


Army  Aviation  Research  and  Technology 


16.  Abstract 

A  new  approach  for  determination  of  machine-tool  settings  for  spiral  bevel  gears  is  proposed.  The  proposed 
settings  provide  a  predesigned  parabolic  function  of  transmission  errors  and  the  desired  location  and  orientation  of 
the  bearing  contact.  The  predesigned  parabolic  function  of  transmission  errors  is  able  to  absorb  piece-wise  linear 
functions  of  transmission  errors  that  are  caused  by  the  gear  misalignment  and  reduce  gear  noise.  The  gears  are 
face-milled  by  head  cutters  with  conical  surfaces  or  surfaces  of  revolution.  A  computer  program  for  simulation  of 
meshing,  bearing  contact  and  determination  of  transmission  errors  for  misaligned  gear  has  been  developed. 


17.  Key  Words  (Suggested  by  Author(s)) 

Gear  geometry 
Spiral  bevel  gears 
Tooth  contact  analysis 
Gear 


18.  Distribution  Statement 

Unclassified  -  Unlimited 
Subject  Category  37 


19.  Security  Classif.  (of  this  report) 

20.  Security  Classif.  (of  this  page) 

21 .  No  of  pages 

22.  Price* 

Unclassified 

Unclassified 

215 

A10 

NASA  FOAM  ISM  OCT  M 


*For  sale  by  the  National  Technical  Information  Service,  Springfield,  Virginia  22161 


NASA-L*ngl*y,  1080 


